NAME 


INSTRUCTOR 




























































































PM'C'T V// 

f, " Li 

UNcai.N^ v- -»/ r >_/ 

PARK? 

Ji jLJ/> ; Q ' (( 
P- ri 37c 

JiUu: / 1 53 ii I 


Scale of Miles 
for Metro Area Map 

» 2 3 4 ; 

ONE INCH EQUALS APPROXIMATELY 3 MILES 


F reeway und er construction 
Paved—two or mbre lanes * 

© Interstate routes 

© Interstate Business 
Connections 

fift M niloH CtiU* CU.tAA 



























































































SYSTEM/38 CONCEPTS 


TIMETABLE 


—-- r——— * ~ ~1 

INTRODUCTION ! REVIEW 

f . i 

— 

REVIEW 

-——__——- P - 

HARDWARE I DATA 

SOFTWARE s ADMINISTRATION 

OVERVIEW L _ 

WORK 

MANAGEMENT 

} 

| 

DATA BASE j 

FACILITIES 

1 • ■ 1 ■ ■ . | 

PROGRAMMING 

TOOLS 

CONVERSION 

. 

LUNCH ] 

1 

LUNCH 

. 

LUNCH 

DATA J3ASE 
FACILITIES 

' 

Ccont.) 

PROGRAMMING 

TOOLS 

Ccont.) 

• 

DEMONSTRATION 

* ... -urn- oj. 

WORKSTATION 

FACILITIES' 

HIGH LEVEL 
LANGUAGES 

1 


DEMONSTRATION 







HARDWARE/SOFTWARE 


OVERVIEW 



A SYSTEM FOR PEOPLE PRODUCTIVITY 



QUERY 

DATA - 


WHERE IT'S NEEDED 
WHEN IT'S NEEDED 
TO WHOM IT'S NEEDED 
IN THE FORM IT'S NEEDED 

PROGRAMMER 

CLERK 

MANAGER 


Visual Masters 6-5 




MODEL 3 
MODEL 4 
MODEL 5 


PROCESSOR UNIT 


\» r . & 
v y 



CYCLE 

(nanosecond] 

1 100 
1100 
600 


MAIN STORAGE 

/ INCREMENTS.\ 

I OF 256 } 


'll/ 54-2 -1536K 
^5-t2 -2048K 


\oV 


-2048K 




AUXILIARY STORAGE (FIXED DISK) 



129 MB - AVAILABLE 



Visual Masters 




(3370 

•DASD) 


Page of ZR30-0386*1 
As updated February 20, 1981 
By TNL ZN60-1608 


PRINTERS 


5211/3262 


3203 MOD 5 



5211 300 LPM 

3262 650 LPM 


3203 1200 LPM 


132 PRINT POSITIONS 
6 OR 8 LINES/INCH 

INTERCHANGEABLE PRINT BELT OR TRAIN 
(3262 A1) OR STANDALONE 


V-13 


Visual Masters 6*17 





Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


SYSTEM/38 
PRINTER OPTIONS 


BOLT-ON 



STANDALONE 


TYPE 

MODEL 

LPM 

TYPE 

MODEL 

LPM 




5211 

2 

300 

3262 

A1 

650 

3262 

B1 

650 




3203 

5 

1200 


MAY HAVE : 

1 BOLT-ON 
OR 

1 STANDALONE 
OR 

1 BOLT-ON AND 1 STANDALONE 
OR 

2 STANDALONE 


6-18 ZR30-0386 




ADDITIONAL I/O CAPABILITY 


STORAGE 


PROCESSOR 

5424 

MFCU 

3411 

TAPE 

PRINTER 


_ L 

96 COL. 

( TAPE ) 

V V 


MFCU: 

A1 - 250/60/60 3410/3411 UNITS 

A2 - 500/120/120 20-80 KB 


V-15 


Visual Masters 6-19 




Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


COMMUNICATIONS 



WORK STATION CONTROLLER 

• STANDARD FEATURE 

• 12 DISPLAYS/PRINTERS 

• IBM 5250 SYSTEM UNITS (LOCAL) 

• UP TO 80 DEVICES (OPTIONAL) 

• UP TO 5000 FEET 

• SDLC 



COMMUNICATION ATTACHMENT/S 

• UP TO 8 LINES 

• SDLC OR BSC 

SDLC 

, • 600 TO 9600 BPS 

• SWITCHED OR NON-SWITCHED 

• POINT TO POINT OR MULTIPOINT 

• REMOTE WORK STATIONS 

BSC 

• 600 TO 9600 BPS 

• SWITCHED OR NON-SWITCHED 

• POINT TO POINT 

• MOST GSD/DPD SYSTEMS 


V-16 


6-20 ZR30-0386 




5250 DISPLAY STATIONS 


525 I 

MODELS I and 2 

960 characters 
I 2 lines of 80 characters 

MODELS II and 12 

1920 characters 
24 lines of 80 characters 


5252 

DUAL DISPLAY 

960 characters 

12 lines of 80 characters 





5250 WORKSTATION PRINTERS 





Machine Summary 3-35 







SINGLE LEVEL STORAGE 



® ALL STORAGE MANAGED AS ONE CONTAINER OF OBJECTS 
o AN OBJECT (FILE, PROGRAM, ETC) IS DISTRIBUTED 
THROUGHOUT 


USER NOT CONCERNED WITH DESIGNING OR SPECIFYING 
LOCATION OR SPACE REQUIRED , \ #T 

'V>\ 1 |rv#T 
m/7 '' \ <3^ X 

^ f p J 

■ ^ ‘ 


Visual Masters 6-9 




Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


SOFTWARE 

RPG III 

• EXTERNALLY DESCRIBED DATA 

• NEW OPERATIONS 

• LESS CYCLE DEPENDENCE 

• WORK STATION OPERATIONS 

COBOL 

• EXTERNALLY DESCRIBED DATA 

• TRANSACTION FILE FOR WORK STATIONS 

• ANS X3.23-174 STANDARD 

i 

• DATA BASE EXTENSIONS 

V-18 

6-22 ZR30-0386 



Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


SOFTWARE (2) 

IDU 

• SOURCE ENTRY UTILITY (SEU) 

• DATA FILE UTILITY (DFU) 

• QUERY —; I ' 

• SCREEN DESIGN AID (SDA) 

CONTROL LANGUAGE (CL) 


V-19 


Visual Masters 6-23 



CONTROL PROGRAM FACILITY 


• REQUIRES NO GENERATION 

• ALL FUNCTIONS AVAILABLE AT 
INSTALLATION 

• MAY CHANGE DEFAULT VALUES 

• CONFIGURATION CHANGES IMMEDIATELY 
EFFECTIVE 


V-20 


6-24 ZR30-0386 



SYSTEM STRUCTURE 



MACHINE 




DATA BASE 


FACILITIES 



NON-DATA BASE 



PROGRAM 3 


DM-5 


Visual Masters 6-33 




DM-6 




MANAGEMENT 
-|- PROCEDURES 


A DATA BASE SYSTEM 


DM-4 




DATA BASE IS 


A COLLECTION OF INTERRELATED DATA ITEMS 
STORED IN A MANNER THAT REDUCES 
REDUNDANCY. 

IT IS DESIGNED TO SERVE ONE OR MORE 
APPLICATIONS IN AN OPTIMAL FASHION, 

WHILE BEING INDEPENDENT OF THE 
PROGRAM(S) IT SERVES. 


DM-3 


Visual Masters 6-31 



-'"'VLO/81 14: 

54:18 





TAX 

LISTING 



' EMP 

OEP 

NAME 

I NIT 

M 

S 

NO 

’ REG 

OTIME 

RATE 

GROSS 

TAX 

NO 

NO 



S 

H 

EX 

HRS 

HRS 




4416 

124 

AO AMS 

WJ 

M 

H 


40.00 

5.00 

2.00 

95.00 


22236 

124 

BROWN 

HY 

S 

S 

2 


• oo‘ 

200.00 

200.00 

30.00 

25781 

125 

COOPER 

IG 

S 

H 

2 

40*00 

• 00 

4.50 

180.00 

26.00 

39840 

124 

DAVIS 

TV 

M 

H 

1 . 

40.00 

• 00 

2.50 

100.00 


47124 

123 

EVANS 

AS 

M 

S 

2 


• 00 

350.00 

350.00. 

90.00 

66031 

123 

FOX 

• FL 

S 

H 

3 

40.00 

3.00 

"3.50 

155.75 

0 

8.08 

68726 

124 

GREEN 

KR 

M 

S 



.00 

400.00 

400.00 

160.00 

,73315 

125 

HOLMES 

EB 

S 

S 

i 


• 00 

100.00 

1 - 00.00 

. 

74249 

123 

IRVING 

UL 

M 

s 

. 3 


• 00 

250.00 

250.00 

17. 50 

• 80081 

125 

JONES 

CO 

S 

H 


35.00 

• 00 

4.00 

140.00 

28.00 

>"67 89 

{ ) 

123 

KELLER 

ND 

M 

H 

1 

40.00 

.00 

3.00 

120.00 


•9 85 70 

124 

LAKE 

MP 

S 

S 

4 


• 00 

300.00 

300.00 

60.00 


TOTAL NUMBER OF RECOROS PROCESSED 12 




r 


[S', -y 


PAGE 



£7 = International Business Machines Corporation 


Programmer 


DATA DESCRIPTION SPECIFICATIONS 


GX21 7753 1 UM C 
Printed iii U. 


Keying 

Instruction 


Graphic 

Key 







Description 



Conditioning 


. Condition Name 



Sequence 

Number 


1 2 3 4 5 6 7 


~ 2 ~ 2 
— o — .o 

2 1 2 £ 

8 9 10 1112 13 


SL 

I - > 

2 H £ 

re u 2 

•fi E 

T) rz 
£ 2 

15 16 


V S 
q& \/ 

/ W 

19 20 21 2^ / 23 r 2^25 26 27 : 


Functions 


> 73 c S 

H E -2 0 ‘ 

2 o~ g> 
re w 0 3 
Q Q a. D 

30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 .53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 63 69 7C 71 72 73 74 75 75 77 73 79 SC 


TEXT ( v EMPLOY bE 


C.OLH06 ( v FNP' l *v 



•Number ol sheets pet pad may vary slightly. 


tK K)oVe« One recerd 4ovma.A* per Ph^siccd ^ile, 

CRT P^” ; ' e E R XM (AST 


to tn 












































06/10/8114:58:40 TAX LISTING 


EMP 

NO 

NAME 

INI T 

S 

H 

REG 

HRS 

OTIME 

HRS 

4416 

ADAMS 

WJ 

H 

40.00 

5.00 

22236 

•’ BROWN 

HY 

S 

• 

..00 

25781 

COOPER 

IG 

H 

40.00 

*00 

39840 

DAVIS 

TV 

H 

40.00 

.00 

47124 

EVANS 

AS 

S 


• OC 

66031 

FOX 

FL 

H 

40.00 

3.00 

68726 

GREEN 

KR 

S 

% 

.00 

73315 

HOLMES 

EB 

S 


.00 

74249 

IRVING 

' UL 

S 


.00 

80081 

JONES 

CO 

H 

35.00 

.00 

86789 

KELLER 

ND 

/ 

MP 

H 

40.00 

.00 

98570 

LAKE 

S 


.00 


TOTAL NUMBER OF RECORDS PROCESSED 12 


. • N 

VIEW FOR THE FOREMAN' 






sts International Business Machines Corporation 


Programmer 


DATA DESCRIPTION SPECIFICATIONS 


Keying 

Instruction 


Cil tipllic 


Printed in U.S.A. 


Description 



Conditioning 


Condition Name 


Sequence 

Number 


Functions 


1 2 3 4 5 6 7 


5 s d a 


2 JE 2 i 

8 9 10 1112 13 




•Number of sheets per pad may vary slightly. 


CRTLP EMPLFOR 



































06/10/81 

14:58:40 



TAX 

LISTING 

EMP 

NAME 

INI T 

r- 

REG 

0TIME 

RATE 

NO 



H 

HRS 

HRS 

# 

.. 4416 

ADAMS 

WJ 

H 

o 

o 

• 

o 

5.00 

2.00 

22236 , 

BROWN 

HY 

S 

* 

. .00 

200.00 

25781 

COOPER 

IG 

H 

40.00 

• 00 

4.50 

39840 

DAVIS 

TV 

H 

o 

o 

• 

o 

>*- 

• 00 

2.50 

47124 

EVANS 

AS 

S 


• 00 

350.00 

66031 

FOX 

FL 

H 

40.00 

3.00 

3.50 

68726 

GREEN 

kr ; 

S 

* 

.00 

400.00 

' 73315 

HOLMES 

EB 

S 


• 00 

100.00 

' 74249 

IRVING 

' UL‘ 

s 


• 00 

250.00 

. 80081 

JONES 

CO. 

H 

35.00 

.00 

4.00 

86789 

KELLER 

ND 

H 

o 

o 

• 

o 

.00 

3.00 

98570 

LAKE 

t 

MP. 

S 


_ .00 

300.00 


TOTAL NUMBER OF RECORDS PROCESSED 12 
VIEW FOR ACCOUNTING 


: I’U'-sr Mitnnl Ou'. ; p<:". Machines Corporation 

Fi!i- 

!’•■(■ os o>i!rni!r Date 


DATA DESCRIPTION SPECIFICATIONS 


Keying Gi ;iphic 

Instruction 


GX21-7754-1 UM/050* 
Printed in U.S.A. 


Description 

Page 

of 







Conditioning 


Sequence 

Number 


Functions 



'Number of sheets pet pad may vary sliehtly. 


CRTUF- EMPLl^CC 
































06/09/81 16 

: 28:14 


TAX 

LISTING 

BY EM PNG WITHIN 

DEPT 


EMP 

DEP 

NAME 

INI T 

M 

S 

NO 

REG 

OTIME 

RATE 

GROSS 

TAX 

NO 

NO- 



S 

H 

EX 

HP.S 

HRS 

* 



47124 

123 

EVANS 

AS 

M 

S 

2 


.00 

350.00 

350.00 

90.CO 

66031 

123 

FOX 

FL . 

S 

H 

3 

o 

o 

• 

o 

>r 

3.00 . 

3.50 

155.75 

8.08 

74249 

123 . 

IRVING 

UL 

M 

S 

. 3 


.00 

250.00 • 

250.00. 

17.50 

86789 

123 

KELLER 

ND 

M 

H 

1 

40.00 

.00 

3.00 

120.00 


4416 

124 

ADAMS 

WJ 

M 

H 


40.00 

'5.00 

' 2.00 

95.00 


22236 

124 

BROWN 

HV 

S 

S 

2 


• OC 

200.00 

200.00 

; 30.00 

39840 

124 

. DAVIS 

TV 

M 

H 

1 

40.00 

• 00 

2.50 

100.00 


68726 

124 

GREEN 

KR 

M 

S 



.00 

400.00 

400.00 

160.00 

98570 

124 

LAKE 

MP 

S 

S 

4 


.00 

300.00 

300.00 

60.CO 

25781 

125 

COOPER 

IG 

S 

H 

2 

40.00 

.00 

4.50 

180.00 

26.CO 

73315 

125 

HOLMES 

EB 

S 

S 

1 


.00 

100.00 

100.00 


80081 

125 

JONES 

. co 

S 

H 


35.00 

• 00 

4.00 

140.00 

28.CO 


TOTAL-NUMBER OF RECOROS PROCESSED 12 


PAGE 



r.VYTA DESCRIPTION SPECIFICATION?? 


GX21-7754-1 UM/050* 
Printed in U.S.A. 



* Number of sheets (>cr pad may vary slightly. 


CRVLF fcMPK 





























06/09/81 16:27:29 TAX LISTING BY NAME 


EMP 

NO 

OEP 

NO 

NAME 

INIT 

M 

S 

s 

H 

NO 

EX 

REG 

HRS 

QTIME 

HRS 

RATE 

GROSS 

TA\ 

4416. 

124 

ADAMS 

WJ 

M 

H 


40.00 

5.00 

2.00 

’ 95.00 


*22236 

124 

BROWN 

HY 

S 

S 

2 

- . 

.00 

•200.00 

200.00 

30.00 

25781 

125 

COOPER 

IG 

s 

H 

2 

40.00 

.00 

4.50 

180.00 l 

i 

- 26.CO 

39840 

124 

DAVIS 

* TV 

M 

H 

1 

40.00 

.00- 

2.50 

100.00 


47124' 

123 

EVANS 

AS 

M 

S 

2 


.00. 

350.00 

350.00 

90.00 

66031 

123 

FOX 

FL 

S 

H 

3 

40.00 

3.00 

3.50 

155.75 

8.08 

68726 

124 

GREEN 

KR 

M 

S 



• .00 

400.00 

‘400.00 

160.00 

73315 

125 

HOLMES 

EB 

S 

S 

1 


• 

.00 

100.00 

100.00 


74249 

123 

IRVING 

UL 

M 

s 

3 


.00 

250.00 

250.00 

17.50 

,80081 

125 

JONES 

CO 

S 

H 


35.00 

.00 

4.00 

140.00 

28. CO 

867 89 

123 

KELLER 

ND 

M 

H 

1 

40.00 

• .00 

3.00 

120.00 


98570 

124 

LAKE 

.. .MP 

S 

s 

4 


• 00 

300.00 

300.00 

60.CO 


TOTAL NUMBER OF RECORDS PROCESSED 12 


PAGE 



: = In ! 1 iii.Miim.il Dii'tnf;'.'. M.-r.lmr:i Cnrpoiation 


PAT A DESCRIPTION SPECIFICATIONS 


GX21 7754-1 UM/050* 
Printed in U.S.A. 



C.RTLF- EH P ‘' “a L 2_ 


Nuinhi'f ol p ,> ' pa*I may vary •liijlilly. 
















































06/09/81 16 

: 27:50 


TAX 

LISTING 

BY NAME 

WITHIN 

SALHR 


EMP 

OEP 

NAME 

IN IT 

M 

S 

NO 

REG 

OTIME 

RATE 

GROSS 

TAX 

* NO 

NO 



S 

H 

EX 

HRS 

HRS 




4416 

124 

ADAMS 

WJ 

M 

H 


40*00 

5.00 

2.00 

95.00 

. 

25781 

125 

COOPER 

IG 

S 

H 

2 

40.00 

. .00 

• 4.50 

180.00 

26.00 

39840 

124 

DAVIS 

TV 

M 

H 

1 

40.00 

• 00 

2.50 

100.00 


•66031 

123 

FOX 

FL 

S 

H 

3 

40.00 

3.00 

- 3.50 

155.75 

8.08 

80081 

125 

JONES 

CO 

S 

H 


35.00 

.00 

4.00 

140.00 

28.00 

86789 

123 

KELLER 

ND 

M 

H 

1 

40.00 

.00 

3.00 

120.00 


22236 

124 

BROWN 

HY 

S 

S 

2 


.00 

200.00 

200.00 

30.00 

47124 

123 

EVANS 

AS 

M 

S 

2 


.00 

350.00 

350.00 

90.CO 

68726 

124 

GREEN 

KR 

M 

S 



.00 

400.00 

400.OC 

160.00 

^'"3315 

i 

125 

HOLMES 

EB 

S 

S 

1 


.00 

100.00 

100.00 


^74249 

123 

IRVING 

UL 

M 

S 

3 


.00 

250.00 

250.00 

17.50 

98570 

124 

LAKE 

MP 

S 

S 

4 


.00 

300.00 

300.00 

60.00 


TOTAL NUMBER OF RECORDS PROCESSED 12 





Ii'lprnntinn.ll Rufini'.', Corporation 


DATA DESCRIPTION SPECIFICATIONS 


Kcyiiu) 
Itmlr tiction 


Gi.'pliir 


GX21-7754-1 UM/050* 
Printed in U.S.A. 


Description 


Sequence 

Number 



■ibof ol sheets per pad inoy vary slightly. 


CRT LF 
































'06/09/81 16:27:58 TAX LISTING BY NAME FOR MARRIED 1 PAGE 


. EMP 
NO 

DEP 

NO 

NAME 

INI T 

M 

S 

S 

H 

NO 

EX 

REG 

HRS 

OTIME 

HRS 

RATE 

Gf.m3 

TTACX 

4416 

124 

ADAMS 

WJ 


H 


40.00 

5.00 

2.00 

9$. m 


39340 

124 

DAVIS 

TV 

M 

H 

1 

40.00 

Voo 

2.50 

10 If. 0© 


47124 

123 

EVANS 

AS 

M 

S 

2 


• 00 

350.00 

35KO'0 

9XJv on© 

68726 

124 

GREEN 

KR 

M 

' i 

s 



.00 

400.00 

A00. 

1 j 60 . mi* 

74249 

123 

IRVING 

‘ UL 

M 

s 

3 


.00 

250.00 

25£wO© 


86789 

123 

KELLER 

ND 

M 

H 

1 

40.00 

• 00 

3.00 

120-.'3© 



TOTAL NUMBER OF RECORDS PROCESSED 6 




















£;.*rVJs?? 5: Iriterna^onat Otisme's f.’achinci Co'POiahon 


DATA DESCRIPTION SPECIFICATIONS 



Kityiiri 
I inunction 


GX21-7754-1 UM/050* 
Printed in U.S.A. 


G-.trice 








Key 









Description 


Conditioning 


Sequence < 

Number c 


Functions 



“Number ot sheets per pad may vary ••■otstly. 


CRT LF EM PUT ' H 































DM-30 


LOGICAL FILE USING MULTIPLE PHYSICAL FILES 


65233 102478 
327 65232 102478 

00654 65231 102478 |- 

A 12700 65230 102478 - 

CUSTNO ORDER * DATE 

ORDER HEADER 
PHYSICAL FILE 


1 B 00654 65231 00372 

*-— -»{ fi-00654 65231 10247T 
B 12700 65230 98765 p — 
B 12700 65230 96520 
B 12700 65230 67821 p—| 

A 12700 65230 102478 I 


ORDERS 
LOGICAL FILE 


geo a ' 1 




-*-] I B 65232 

1 B 65232 4 
| B 65231 01 
, -| B 65231 0037 
- B 65230 98765 
B 65230 96520 12 
B 65230 67821 24 


ORDER # ITEM = QTY 

LINE ITEM 
PHYSICAL FILE 







BAR 









ROMFILP PHYSICAL FILE OF ROOMS 


(100 ROOMS) 


FLOOR 

1,0 


ROOM 

2,0 


RATE 

6,2 

Room rate per night 

BEDNO 

1,0 

Number of beds 

ALLCTD 

1,A 

Allocated? (Y-yes, N-no) 

FROMDT 

6,0 

From date 

TODT 

6,0. 

To date 

TOTCHG 

7,2 

Total charges to this room 


DB2 


Foil Masters 




GSTFILP PHYSICAL FILE OF GUESTS 


NAME 

20,A 


TITLE 

1,0 

1-Mr 2-Ms 3-Dr 

FLOOR 

1,0 


ROOM 

2,0 


ADDR1 

30,A 


ADDR2 

30,A 


CNTRY 

10, A 


CRDTNO 

14,0 

Credit card number 

CRDTTP 

2,A 

Credit card type 

CMPNY 

20,A 

Company name 

CMPAD1 

30,A 

address 

CMPAD2 

30,A 

_ 

CMPCTY 

10, A 



OB3 


15-120 ZR30-0387 




CHGFILP PHYSICAL FILE OF ROOM CHARGES 


FLOOR 

1,0 


ROOM 

2,0 


CHGDT 

6,0 

Date of charge 

CHGTYP 

1,A 

B - bar 

R - restaurant 

P - phone 

D - daily room charge 
0 - other 

CHGAMT 

6,2 

Amount 

CHGTIM 

6,0 

Time entered system 

BILLNO 

6,0 

Receipt number 


DB4 


Foil Masters 15-121 




CREATING A PHYSICAL FILE 



CPYF FROMFILE(DISKET) TOFILE(ROOMS) + 
TOMBR(ROOMS) 


15-122 ZR30-0387 




CRTPF 

(Diagram) 




ja.QGPL! 

CRTPF-FILS physlcal-flle-nams —f 

.library-name. 


Required 




0y- QDDSSRC.*LIBL 
SRCFILBn# 


l.eUBL 


■ouroe—file—name —9 

.library-name 



Optional 

/■•PUS 
SRCMBRa# 

'—source—file 
—member—name 


RCDLBN record-length' 



m #src 

g \i#SOURCS 
>—OPTION —[—f 

\ /— •NOSRC 

V- *N030URCE 



m eusr ■■■■ 

~v r~ ] 

V. *NOLIST—/ 


<£> 


m •DATA. I 
>- PILBTTPB —f 

^-•3RC 

m *NONB 
>- KXPDATB-f 


m •fujs i 


-MBR—•NONE- 

physical-file—member— name 


5 


■ expiration—date 


—/ maximum—member a —' 


am *IUUED an 

>- MA1NT - f *REBLD —V 


@/“ *»o -V 

—4— •AFTSTRCPF— V 
\— eSTRCPF- > 




•DLT - 


-RECOVER —k •APTSTRCPF- 

•STRCPF- 



>- SIZE 


>— ALLOCATE 


>- FRCRATIO 



number—of—increments 




am •ANT mm 

UNIT —9 

'— unit—Identifier 


> 


> WAITHLB^ 


>— SHARE 


• number—of—records—before—foroe 

■ •NONB mmm—mmmmmmmammm—mmammm 

• *TBS — J deleted—recorde—threshold—percentage 


•IMUED wammmmaam 

•CL3 - 

number—of—aeconda 




_/-no-\ 

—9 } DLTPCT —9 

*TES —' 


> 


am *TB3 *n /■ •NORMAL an am eBLANE an 

>— LVLCHE —9 \ -PUBAUT—/- #ALL-^-—TEXT —9 \ 

'—•NO —' / '—•NONE- * '—•text*- 'J 


® To code the following parameters positionally, you must oode them In this order, ualng 
*N for those not being specified: SRCFILS, SRCUBR, and RCDLBN. 

(g) Refer to the parameter /description for the default action taken for this parameter. 


Job:B,I PgnuB.I 


/ 








4-384 





DATA BASE FILE MEMBERS 



MONDAY 


TUESDAY 


WEDNESDY 


MEMBER 1 MEMBER 2 MEMBER 3.. 








15-124 ZR30-0387 






DATA DESCRIPTION SPECIFICATIONS 


IBM 


InitriMtionil Butincst Machine Corporal ion 


File XOOM /V\*ST£R PHiSlCRL 

Keying 

Instruction 

Graphic 








Programmer /W // 

Date S/78 

Key 

/V 

/V 

R 

N 





GX21 7754-0 UM/050* 
Printed in U.3 A. 


Description 


P*ge j of j 


mm 

Conditioning 

\ 

\ 

El 


2 

t£ 

29 

Length 

30 31 32 33 34 

■ 

! 

i 

E 

[22 

i 

x] 

CD 

o 

J 

5 

38 

Location 

1 

Functions 

45 48 47 48 49 50 51 52 53 54 5 5 56 5 7 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 7<J no 
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i 

o 

< 

c 

E 

a 

5 

*U 

C 

< 

7 

J 
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I 


2 

o 

2 
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1 

Se 

Nu 

2 

?ue 

mb 

3 

nee 

er 

4 

S 

9 

i 

to 

3 

12 

' 

13 

15 

> 

3 

5 

16 

19 

20 

21 
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22 23 24 25 26 2? 28 
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39 40 41 
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43 43 44 
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E 
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1 

fl 
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'Number of sheets pei pad may vary slightly. 
































DATA DESCRIPTION SPECIFICATIONS 


< 

55* 

C 

w 

2 
C» 
w 


a 


Conditioning 

- Type (R.K.S.O) 

» Reserved 1 

Name 

19 20 21 22 23 24 25 26 27 28 

£ Reference (R) | 

Length 

30 31 32 33 34 

> 

X* 

$ 

CO 

oS 

2 

ccT 

< 

a 

> 

1- 

Q 

35 

oi Decimal 
y Positions 

5 

l] 

CO 

o 

o» 

5 

38 

Location 


Sequence 

Number 

1 2 3 4 5 

o> Form Type 

o 

< 

c 

t> 

E 

E 

0 

u 

O 

c 

< 

7 

« Not (N) 

Condition Name 

i . ^Functions 

>’ Vc- 

45 46 47 48 49 5Q 5152/53 54 55 56 57 58 59 60 61 62 63 64 


<0 

_ Indicator 
o 

Z 

0 

Z 

11 

W 

_ Indicator 

z 

o 

z 

14 

_ Indicator 

CD 

Line 

39 40 41 

Pos 

42 43 44 
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1 


INITIAL DEFINITION 


SUBSEQUENT 
USE OF FIELD 


□ —“ 


Conditioning 

- Type (R.K.S.O) f 

5 Reserved j 

Name 

19 20 21 22 23 24 25 26 27 28 

cn 

O) 

u 

C 

*» 

«* 

0C 

29 



Sequence 

Number 

1 2 3 4 5 

Q. 

>* 

H- 

e 

o 

U_ 

6 

o' 

«' 

c 

w 

E 

E 

o 

u 

o 

c 

< 

7 

Z 

o 

Z 

8 

Condition Name 

<0 

_ Indicator 

O 

z 

o 

z 

11 

S 

_ Indicator 

CJ 

2 

o 

2 

14 

^ Indicator 

1“_ 

Lenyi 

30 31 32 3 ] 

1 

1 

1 

1 

1 

D 

1 

1 

l 

l 

1 

1 

1 

1 

1 

1 

1 

l 

s 

19 

n 

sa 

IS 
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i 

i 

i 

13 

l 

l 

l 

ft 

1 

1 

1 

1 

1 
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1 

1 

I 

i 

1 

1 

1 

1 

1 

1 

■ 

i 

1 

1 

i 
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l 
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1 

■ 

B 

1 

1 

■ 

i 
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1 

■ 

1 

1 

■ 

■ 

i 

■ 

1 

i 

■ 

■ 

i 


■ 

i 

i 


1 

1 

1 

i 


Page of ZR30-0386-1 
As updated February 
By TNL ZN60-1608 




I;.s .1 >• i.'.at Ei.siiii is Machines Corporation 


Pi o'jf ammtr 


DATA DESCRIPTION SPECIFICATIONS 

. . . ( , . 

Keying j _ . j \ \ 

Instruction j : I i I 


Description 


GX21 77f) l 1 UV. CLC’ 


Sequence 

Number 


Conditioning 


. Condition Name 


± z - 

9 10 1112 13 


IS 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 


mini 


Location 

• 



Functions 

Line 

Pos 


39 40 41 

42 43 44 

45 46 47 48 49 50 51 52 53 54 55 56 57.58 59 60 61 62 63 64 65 66 6? 63 65 70 71 72 72 74 /5 76 ‘ ' 78 70 ::C 


\m\ 


laiBwasBEi 

mm 


STb 


nlicr ot Jhi'its (Hf part may vary slightly. 





































REFERENCING FIELDS 




R CUSTMST 
CUST R 
NAME R 
STREET R 
CITY R 


ARLCINQ I 

o ALL FIELDS OF j 

; CUSTMST | 

^ • KEY ON CUST ) 


-23- 







FLDREFF1L 




CRTPF FLDREFFILE 
CRTPF ARPCUST 


CRTLF ARLCINQ 









COMMAND ENTRY FORMAT 



DB9 ( 


Foil Masters 15-127 


PHYSICAL FILE 


FILE DESCRIPTION MEMBER 



ROMFILP 








INDEXED FILE ORGANIZATION 



DB12 


15-130 


ZR30-0387 





COMPOSITE KEYS 


LOGICAL 

FILE 


BRAZIL 065004 COFFEE CO. 49643 COFFEE BEAN 

i _i_l_l_ 


COMPOSITE 

KEY 



DB13 





DATA DESCRIPTION SPECIFICATIONS 


f.i« TWt> B£6S BooJteb ~P»sT ?9ot/k 

Keying 

Graphic 








Programmer fyi A/ 

D,xt S/7& 

Instruction 

Key 









page 7 °» 7 



Sequence £ 

Number g 

J* — o _o_o 

o c o ? o'? o f 

u. < z £ z £ z £ 

17 1 4 5 6 7 8 9 10 It 17 13 14 IS 16 

rTTTT7* 



> 

X 


5 

</> 

Q-‘ 

2 

Length 

CD 

< 

a 

> 

30 31 32 33 34 

1 



Location 

. 

i 



Functions 

«x> 

Line 

Pos 



39 40 41 

42 43 44 

45 45 47 4 8 49 50 51 57 53 54 55 56 5 7 58 59 60 61 67 63 64 65 66 67 68 69 70 71 77 73 74 75 76 7 7 78 79 80 


iimiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiimiiiiiiiigiiiii 

illlllEllllllllllllllllHiaillllllllllSEB9BBQBBBBBBIEBBEIBB8SB9DE5l 1 


IBBBBBBBEBIEBBEIBBIBBBBESBIQBBBBB 

PHHHHHHHHHHHHHHHHHBBBiBBBBiBBSBflBBBiiiiiiiiiiiiiii 

iWHBnmmmBEBBesBHwmwmmmEHSBHBnEHaigBSHBgnmnmHBnBHn 


^!s^;s^ !aaaiii naim3gmEa;sa3^ .T| 


1IIIIBIIIIIIIIIIB3QBBBBEIIII 
IIIIIBIIIIlillllBIBEBDBIIIII 



SBlllSi® 


’Number ot sheen per par) may »ary shghily 


5 ^ 


pV 

























SHARED ACCESS PATH 



PHYSICAL FILE 


DB15 


15-134 2R30-0387 












CUSTNO ORDNO ITEMNO QTY DESCR PRICE 


3,0 20,A 


Foil Masters 15-135 




LOGICAL OVER SEVERAL PHYSICAL FILES 

Logical file 


IT 


EMI DESCR ETC. 


ITEM2 DESCR ETC. 


WHSE4 AISLE3 BIN6 QTY 
SUPPLIER# NAME TERMS ETC 


WHSE5 AISLE2 BINS QTY 
WHSE6 AISLE3 BIN2 QTY 
SUPPLIER# NAME TERMS ETC 


ITEM3 DESCR ETC. 


WHSE2 AISLE1 BIN1 QTY 
WHSE3 AISLE1 BIN1 QTY 
WHSE4 AISLE3 BIN2 QTY 
SUPPLIER# NAME TERMS ETC 



Access by key 
ITEM# 

-include all records 


Physical files 
ITEM MASTER FILE 


ITEM1 

DESCR 

ETC. 

ITEM2 

DESCR 

ETC. 

ITEM3 

DESCR 

ETC. 

ITEM4 

DESCR 

ETC. 


WAREHOUSE FILE 


ITEM1 WHSE4 AISLE3 BIN6 QTY 


ITEM2 WHSE5 AISLE2 BIN5 QTY 


ITEM2 WHSE6 AISLE3 BIN2 QTY 


ITEM3 WHSE2 AISLE1 BIN1 QTY 


ITEM3 WHSE3 AISLE1 BIN1 QTY 


ITEM3 WHSE4 AISLE3 BIN2 QTY 


ITEM4 WHSE1 AISLE1 BIN6 QTY 



SUPPLIERS FILE 


ITEM1 SUPPLIER# NAME TERMS ETC, 


ITEM2 SUPPLIER# NAME TERMS ETC 


ITEM3 SUPPLIER# NAME TERMS ETC, 


DB17 


15-136 ZR30-0387 






DATA DESCRIPTION SPECIFICATIONS 


International Business Machine Corporation 


GX21-7754 43 UM/050* 
Printed in U.S.A. 


File 

/T£MUSr 


Keying 

Grtphic 

Programmer 

MAf 

One s/l % 

Instruction 

Key 


Page ^ of ^ 


|45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 





















































CREATING A LOGICAL FILE 




COMMAND ENTRY DISPLAY 


CRTLF FILE(BOOKDFIL.GALIB) MAINT(*REBLD) 
LVLCHK(*N0) PUBAUT(*ALL) 

TEXT('2-BEDS BOOKED 790216') 






15-140 ZR30-0387 





CRTLF 

(Diagram) 





Command Descriptions 4-349 




ADDING A FIELD 



PD23 


15-300 ZR30-0387 








ADDING A FIELD 



1. CHANGE DDS TO ADD FIELD TO PHYSICAL FILE - 

2. RE-CREATE PHYSICAL FILE IN ANOTHER LIBRARY 

3. LOCATE ALL AFFECTED LOGICAL FILES & PROGRAMS 

4. RESTRICT USAGE OF OLD PHYSICAL FILE 




NOTE: LVLCHKC NO) IN CL IF ADDED FIELD IS AT END OF RECORD 
RECOMPILE PROGRAMS IF FIELD IS INSERTED 




DATA DESCRIPTION SPECIFICATIONS 


IBM 


Interrveiional Bunnell Machine Corporation 


File F/£LD R£££R£MC£ £/i £ 

Keying 

Instruction 

Graphic 








Programmer f/ 

d *« {./nr 

Key 









>,*?i h'a ii u'.' Wi 


P>gt 


PtfVS/C#L F/L£ 


1 °' 3 



*Numlx*r ol iherlv |ir*r iml may very '.IrijfiMy 


U 

CJ 































DATA DESCRIPTION SPECIFICATIONS 


fVrt HumiVw M.H'him* 


F ''» FIELD REFERENCE 

FILE 

Pfogrammer AiA^ 

04te 


Keying 

Instruction 


Graphic 



' 


□ 

— 

— 

Key 

_ 




_ 




GX 21 7754 OUM. 050 * 
PtminJ in U S A. 


physical file 


r'3 


_ Conditioning _ ■ 

Jr^ — I X Location 

. Condition Name >* 

O 

- s —n—n— £ —— 

C 2 _ 

Sequence * _ , . —! 2 

Number I ° - L '" 9,h “• I *"««•"* 

si 2 r r »: >-« 

5 _ o — Oct'S V 9 — £ • 

p9555?5s-> £ £ 2 S = 

e ~ y y yjjiJ r _ t - v 

occ "5 o 'J o 'o >S r 2 p5S 

ir<Z£zi2=r-(t 5 QQr?3 

;. '-I -■?■ JL JL JL 9 .IP II Uli li l 5 .-!!. II 11 ' 9 20 1\ 12 12 1* 7S X 11 2B 29 3° 31 32 33 3« 35 36 37 38 39 40 «l 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 6S 66 6 7 68 69 70 71 72 73 74 75 76 77 78 79 

Mf* 1 T TIT TTTT T Tf.I I 7RTH7I7OT I I I II I I I I I I I I I I I I I I I I l I l l l 


nobr 


rorcHfi 


(o <fi 

7 ~Z 


£Z>rCP£(Y2_ 

LRLH-LL1L _1_ 

C 0 LHJ>G('T 07 ftL C H R « G £ S FOR ROOH T ^j 

EDTCDl^n 


HIBBBBIBfliQEaS 


m 

RF3 


THIA 


BBBEUBBIBSBBDBBIIIIIIIIIIIIIIIIIIIIIlililllllilflllllilllllll 

![!!il!|j!![j^^ 

IIIBBBBBIIII||||||||||HMMMMfiiiiMMMHMMHHi 


iimuiii 

IIIBBBEBIIII 

IIISBBBBIIII 

lliaSBBDBIII 

IM1SI 


IIIBSBDBIIII 

illBQSBSfllll 

IIIBBSIII 


!!!li!!!!! u ™>3BBI!lEaBBHS]QBBBBBiaDDBIDBDIIIIIII 

MHH fflgaMggffiiSIBagB 

■■■■B|gj|ggg|!j lSllg§algHB§lBil 8 llllS§BBiaa 53 SS 8 

■liiiQiiiiitiiiiilSBlBsSSBlgQiSSlgSigilBQsSSlfll 














Foil Masters 15-147 


IBM 


DATA DESCRIPTION SPECIFICATIONS 


International Buiineti Machine Corporation 


File 


F/£LL AEF£A£MC£ F/L£ 


Programmer MM 


t*/78 


Keying 

Instruction 


Graphic 








Key 









CX21-77S4 0 UM/OSO' 
Pnntril >n U S A 


Description 


PHVS/CFL FILE 


Page 
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Length 
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Decimal 
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Line 
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Functions 




u 

u 

a 

D 

El 

6 

H 

Q 

a 

10 

m 

UJ 

13 

m 

e 

16 

t 


E 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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53 

54 

55 

56 

57 
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DATA DESCRIPTION SPECIFICATIONS 


International Buimeu Machine Corporal 




GX2177S4-0 UM/050* 

Printed mUS A. 














































DESK EXERCISE N01 


DDS PHYSICAL FILE 


RECORD FORMAT 

- PAYMAST 

TITLE 

- PAYROLL MASTER 

EMPNO 

- 5,0 

NAME 

- 25 

SSNO 

- 9,0 

RATE 

- 4,2 

DUES 

-3,2 

BLUEX 

- 3,2 


KEY - EMPNO 
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DATA DESCRIPTION SPECIFICATIONS 


GX?1 J7WOUM 000* 
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Graphic 
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DATA DESCRIPTION SPECIFICATIONS 


GX21-7754-1 UM 050" 

:s. U.S A 





*Nunilxfr of shr»*Ii p««l «.i*v *■ ! 
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International Business Machines Corporation 

File 

Programmer Date 


DATA DESCRIPTION SPECIFICATIONS 


GX21-7754 1 UM/050" 
Printed in U.S.A 


Keying 

Instruction 


Graphic 







Key 








Description 


Sequence 

Number 


Functions 









































DESK EXERCISE N02 

DDS LOGICAL FILE 
(FOR EMPLOYEE LISTING BY SSNO.) 

FORMAT NAME - SSNOLIST 
NEED 

EMPLOYEE NO. 

NAME 

RATE 

SOCIAL SECURITY NO. 

ACCESS PATH BY 

SOCIAL SECURITY NO. 
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DATA BASE DATA MANAGEMENT SUMMARY 

• LOGICAL "VIEWS" OF SAME PHYSICAL DATA PROVIDES: 

- REDUCED REDUNDANCY 

- BETTER CONTROL 

• ONE OR MORE APPLICATIONS SERVED IN AN OPTIMAL 
FASHION 

- FILE UPDATES IMMEDIATELY AVAILABLE TO ALL USERS 
-ACCESS PATHS ALWAYS CURRENT (NO NEED TO SORT) 

• DATA IS INDEPENDENT OF PROGRAMS 

-ALL LOGICAL FILES ARE UPDATED WHENEVER THE 
PHYSICAL FILE IS UPDATED (WHETHER LOGICAL FILES 
ARE BEING USED OR NOT) 

- DATA FILES MAY BE USED IN CONJUNCTION WITH 
UTILITIES OR HLL PROGRAMS 

• FIELD ORIENTATION LEADS TO BETTER DOCUMENTATION 

• SUBSTANTIAL CODING ELIMINATED 

• CHANGES TO FILE ARE MADE TO DDS, NOT PROGRAM 
-CHANGES ARE MADE IN ONLY ONE PLACE 

- PROGRAMS MAY NEED TO BE RE-COMPILED, BUT NOT 
CHANGED 

• WITH ALL DATA PREDEFINED TO THE SYSTEM: 

- LESS CHANCE OF CODING ERRORS 

- LESS CHANCE OF KEYING ERRORS 

- PROGRAMMER MAY CONCENTRATE ON PROCESSING 
STEPS OF PROGRAM 
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WORKSTATION 

FACILITIES 



S/38 Workstation Support 



QUERY 


r i i r i 

Places the power of the computer 

i r r i i 

at the source of the data 
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ORDER ENTRY MENU 

01 INQUIRE INTO CUSTOMER INFO 
02 INQUIRE INTO ITEM INFO 
03 CUSTOMER NAME SEARCH 
04 ORDERS BY CUSTOMER 
05 EXISTING ORDERS 
06 ORDER ENTRY 
07 END OF MENU 




SELECT: 03 


OPERATOR ENTERS SELECTION 


Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


PROGRAMMER MENU 
Select one of the following: 

1. Design/execute DFU app (app), ,(options) 

2. Design/execute query app (app), ,(options) 

3. Create object object name, type, pgm for CMD, (text) 

4. Call program program name 

5. Execute command command 

6. Submit job (job name), (command) 

7. Display submitted jobs . 

8. Edit source (srcmbr), (type), (text) 

9. Design display format (srcmbr) 

90. Sign off (*N0LIST *LIST) 

Types: BSCF, CBL, CL, CLP, CMD, CMNF, DSPF, LF, PF, PRTF, RPG, TXT 

Option: 3 Parm: MYFILE Type: PF Parm 2: 

Command: 

Text: Log requests: *YES 

Src file: APPSRC Src lib: APLIB Obj lib: APLIB Jobd: APWJOBD 

CF3 - Command entry CF4 - Prompt (3 & 5 only) CF6 - DSPMSG 
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ITEM WAREHOUSE DESCRIPTION 
NO. LOCATION 




SELF CHECK 
MANDATORY ENTER 
COMPARE TO A LIST 
MUST BE GT ZERO 




U/M UNIT UNIT ON ON MIN. MAX. 
PRICE COST HAND ORDER BAL. BAL. 

© ® © © © © © 


© MUST BE NUMERIC 

( p ) MUST BE WITHIN THE RANGE 
W OF 100 TO 5000 

( g ) MUST BE WITHIN THE RANGE 
W OF 750 TO 10,000 




FIELD DISPLAY OPTIONS 


\uuiliiiiiliniiim//. 
7 HIGH INTENSITY^ 
^///////iiiiunnvNNV^ 

UNDERLINE 


BLINKING 



|c|o[l|u|m|n| |s|e|p|a|r|a|tJo|rJs 




6-82 ZR30-0386 





:J?I !:-*;*;:-T]/iH!-.lo!ii ? i:«!4;r,!6i/i«io-| ! .|ii2i3| 1 i5idUl8lol.Tiii ? !3!4].,iti; -!?io]opi :\, 

i i . 1 a i li I i i i , 1 ii i i i i i i- i i i j _i I i - ; i I : . i i lit i 


1 1: .til L. I 111 

iQRD.EiRi .ft, , [ ■ . 

lUiNX.Stii ,1,1..! 
iCUi .TiOiMEA .ft x 

x 1 i , 

i i i i ! i i i I i i 


I 1 I I i I 1 i x. I X- l J _l 

£xU,S,TlQli£iR,. INiAAEi 


1_ i i i I i : i 


L_-L. 1. X . i L 1 1 I 1 

1 xXlX. 


I l. -1 . I i l.. 1 i t . L l 


.1_I—. X —I. 1- | 


_iL,liNiEl .x J.T.EIM, to iQluA^JxIlLyx 

,,H i_ l 1 xNiN.x 


6 i ; ! K !“!•’; 1 11 ! l'i!> : T l ! S I Ch'.I 1 T- 1 III 7, 1>• I 'I s !!>’t 1 1' ; I 1 * IG1 


1 I ‘ I I 1 l l 1 l 1 . I i l 1 ; t 4 ; I . I 

.1 I ; , , iO, A-T £L .ClUiST.OnElRi 

, , , : iN.Ni/iNlfJi/.N.Ni . , , xNi — r~ r. ; , 

, , , ; , 5.T,AT,U5, 1 . . £H XP-. iV.HA, 

* . iX.-xX; ; i [ i i ; i ‘X ; . lXit: • i i i ! r 

i i i ! i i i i 1 i i i i , . . t . i i i 

jj^ixiTx ip.fLiic^i x.^:;.iC^TiEiNiSjLOiN: . 

, , iKIMiU.-iN^I , , , 


QRDie^. iKx-l 

-T Tt ; M . 



















Visual Masters 






IBM 


DATA DESCRIPTION SPECIFICATIONS 


t«l«f IwKntll W«chtr^ Cu<l 


Keying 

Inslfuciion 


Ctephic 



—— 



' 











GX7I77V41 UUAMO* 
nUJX 


ORDER ENTRY DISPLAY 


P»9» ol 

1 3 


■ 

■ 


Conditioning 

m 

■ 

1 

P 

S3 


a: 

5 

cc 

79 

Length 

30 31 37 33 34 

| 

Z 

> 

X 

£ 

< 

m 

t/5 

a 

< 

I 

K 

•% 

o 

3S 



Location 

Function* 

4S 46 4 7 48 49 SO SI S7 S3 S4 SS S6 S7 SB 59 60 61 67 63 64 11 66 67 U 69 70 71 77 73 74 75 76 77 71 79 U 





Condition Nim* 

6 

.5 

1 

9 10 


5 

! 

? 

t7 n 

z 

o 

Z 

14 

1 

0 

I 

c 

IS 16 1 

1 

S* 

Nu 

2 

u* 

mU 

3 

X» 

ir 

4 

1 

Nime 

19 20 21 2? 23 2* 25 2« 2J 28 

I 

I 

36 

c 

s 

a. 

37 

Ltne 

39 40 41 

Pot 

47 43 44 






i 










II 

II 

1 

ii 

II 

1 

1 











1 






1 


1 

1 

a 

1 

1 

M 

9 

■ 

iDO 

!! 

H 

1 

i 

i 

i 

■ 

1 


1 

1 

1 

1 

1 


1 

1 





n 




n 

















1 

I 

1 

li 

1 

9 

D 

















1 


1 

1 

ii 

1 

0 

D 

a 

i 

a 

1 

a 

1 

a 


ii 

9 

Q 


I 

B 

0 

1 

1 

1 

1 

9 





i 




- 



















1 

11 

II 

i 

1 











1 






1 


1 

1 

1 

1 

1 

1 

i 

ii 

in 


i 

1 

l 









1 

1 

1 

1 

1 





i 



. 


- 






* 

H 












1 

II 

II 



















a 


1 

1 

1 

SI 

a 

1 

i 

HI 

isi 


i 

1 

l 












1 
















A 












1 

II 

II 

i 

1 











1 






§ 


D 

l 

B 

| 

i 

a 

D 

i 

Pi 


a 

ft 

1 





























* 












1 

II 

II 

i 

1 











1 






a 


H 

3 

B 

3 

0 

9 

3 

n 

III 


i 

1 

l 





























A 













II 

II 

i 

1 





1 






1 






a 


i 

3 

B 

a 

a 

1 

9 

i 

Pi 


SI 

a 

a 









































E 

3j 

Si 

a 






3 









3 



a 


1 

a 

i 

9 

i 

1 

a 

m 

PI 


i 

i 

i 









































3 

i 


i 

1 





3 






1 



3 



3 


n 

9 

1 

1 

i 

1 

i 

n 

III 


i 

i 

i 









































1 

i 

i 

B 

i 





a 






Ji 



1 



1 


2 

B 

1 

1 

i 

1 

I 

ll 

III 


i 

I 

I 





























■ 












1 

I 

i 

9 

1 





a 






1 



iU 



3 


i 

E 

fl 

1 


1 

a 

li 

III 


i 


i 





























m 












1 

II 

ii 

1 

1 





i 






1 



1 



2 


i 

a 

B 

i 

n 

3 

9 

m 

li 


3 

i 

i 





























! 

U 












1 

II 

ii 

1 

1 





i 









1 



D 


9 

@ 

fl 

3 

ii 

0 

ii 

i 

11 


1 

i 

i 





























D 












1 

II 

n 

1 

1 





i 









1 



3 


3 

a 

B 

1 

1 

B 

3 

i 

IE 



i 

i 





























£ 













i 


1 

1 





a 









3 



3 


D 

a 

B 

1 

1 

1 

fl 

ii 

III 


1 

i 

g 





























D 











II 

1 

I 

13 

1 

1 





a 









1 



1 


1 

i 

1 

3 

1 

1 

a 

i 

11 


D 

i 

D 





























B 









• 


1 

1 

II 

II 

1 

1 





i 









1 



1 



i 

3 

0 

3 

1 

i 

i 

ill 


3 

i 

a 












1 

















B 











II 

1 

Bi 

m 

1 

1 





a 






1 



3 



1 


D 

B 

B 

1 

1 

1 

i 

n 

III 


1 

i 

i 












1 

















B 












1 

DC 

M 

1 

1 





a 









3 



1 


0 

1 

fl 

1 

1 

1 


n 

III 


1 

i 

i 









































n 

DC 

1 

1 

1 





a 






1 



SI 



1 


1 

0 

1 



1 

i 

ii 

III 


1 

i 


























o* lhnl\ p»» p*d **«v 


Ol 

00 












































/ • 


DATA DESCRIPTION SPECIFICATIONS 


IBM 


lrtl**rk«lK>A«< MiCh.rt* Cu'pn'Omn 


Ha 

Keying 

Initruction 

Grepn* 

■ 

■ 

n 

n 

n 

n 

n 

Progr*mm#t 

Dele 

Key 

■ 

■ 

■ 

■ 

■ 

■ 

■ 


0X21-77*4 1 UM/060* 
"> U S A. 


Dncrtphon 0 | 

ORDER ENTRY DISPLAY 2 3 


'wm 


Conditioning 

B 

Name 

: 

1 19 20 21 22 23 24 2S 26 27 28 

c 

l 

£ 

79 

Length 

0 31 32 33 34 

E33 



locaiion 

Functions 

45 46 4 7 48 49 50 51 57 53 54 55 56 57 58 59 60 61 62 63 64 6& 4M 67 66 69 70 71 72 73 74 7* 76 77 78 79 80 

Sequence 

Number 

1 3 3 « » 

j 

6 

< 

c 

i 

I 

u 

§ 

•D 

* 

7 

| 

Condition Name 

o 

| 

9 10 

I 

$ 

! 

I 

1? 13 

| 

0 

3 

•6 

_c 

IS 16 

1 

i 

36 

| 

o 

CL 

3? 

3! 

Line 

9 40 41 

Po* 

42 43 44 






D 





i 



1 


1 

il 

lli 

m 

u 

I 

1 

1 


1 


SI 

II 

1 

i 

1 

1 

1 


II 

II 

3 

1 

a 

0 

I 

1 

ii 

1 

a 

1 

III 

ii 

i 


1 


i 

1 

1 



o 










1 

1 










B 





i 



1 


1 

li 

111 

M 

1 

il 

a 

1 


1 


31 

II 

1 

i 

1 

a 

1 


31 

II 

1 

1 

a 

1 

1 

1 

1 

a 

i 

II 

III 

ii 

i 


1 


i 

1 

1 



i 










I 

1 










B 





i 



1 


1 

il 

III 

II 

1 



1 


1 


II 

II 

1 

i 

1 

i 

1 


II 

II 

S 

1 

i 

! 

1 

1 

il 

i 

i 

II 

mi 

il 

I 


93 


i 

1 

13 



B 










1 

1 










B 








1 


1 

li 

III 

II 

1 



1 


1 


II 

II 

1 

i 

1 

i 

1 


II 

II 

n 

1 

5 

0 

B 

0 

s 

g 


i 

in 

11 

a 

1 

a 


B 

1 

a 













1 

1 










Q 





i 



1 


1 

il 

III 

II 

1 



1 


1 


II 

II 

1 

i 

1 

i 

1 


II 

II 

i 

1 

B 

3 

B 

1 

39 

0 

ii 

1; 

ii 

11 

i 


i 


1 

1 

i 
























B 





i 



1 


1 

il 

III 

II 

1 



1 


1 


II 

II 

1 

i 

1 

i 

1 


II 

II 

B 

1 

0 

n 

I 

a 

3 

li 

g 

I 

m 

1 

i 


i 


1 

1 

i 
























B 





i 



1 


1 

il 

lli 

1 

1 



1 


1 


31 

II 

1 

i 

1 

i 

1 


11 

II 


1 

1 

a 

fl 

i 

1 

fl 

i 

II 

in 

II 

i 


i 


1 

1 

i 
























B 





i 



1 


1 

li 

lOi 

11 

1 



1 


1 


31 

II 

1 

i 

1 

s 

1 


31 

II 


1 

1 


1 

a 

1 

i 

3 

Mi 

SI 

I 

i 


i 


1 

1 

i 
























B 





i 



1 


1 

il 

III 

II 

1 



1 


1 


II 

II 

1 

i 

1 

i 

1 


II 

II 

1 

1 

1 

i 

1 

3 

fl 


i 

a 9 

ii 

n 

li 


i 


1 

1 

i 
























B 





i 



1 


1 

ll 

III 

II 

1 



1 


1 


II 

II 

1 

I 

1 

i 

1 


II 

II 

1 

1 

1 


1 


a 

0 

ii 

I 

in 

9fl 

1 


i 


1 

1 

i 
























8 

n 

u 


li 

0 

i 

il 


1 

1 

3! 

i 

IS9I 

E 

1 

1 

B 

1 

1 

1 


13 

90 

1 

3 

1 

i 

H 


I 

1 

0 

1 

0 

i 

1 

1 

i 

fl 

1 

II 

in 

II 

1 


i 


1 

1 

i 
























B 

H 

CuS 


1 

1 

1 

1 

$ 

g 

1 

H 

li 

li 

IB 

1 

1 

1 

1 

Si 

B 


Eli 

in 

1 

B 

3 

i 

1 

1 

as 

91 

i 

1 

1 

a 

B 

1 

i 

i 

1 

II 

in 

II 

1 


i 


1 

1 

i 
























B 

n 


s 

a 

3 

B 

a 

i 

0 

B 

is 

1 3 

1 

jjj 

1 

i 

3 

3 

H 


03 

S3 

1 

0 

1 

i 

0 

1 

li 

91 

SI 

B 

1 

i 

1 

1 


i 

l 

II 

in 

II 

1 


i 


1 

1 

i 
























B 

w 

u 


a 

i 

1 

1 

B 

3 

i 

1 


li 

1 

SI 

0 

B 

3 


1 


33 

91 

SI 

1 

B 

1 

3 

13 

I 

30 

SI 

B 

1 

H 

B 

1 

i 

I 

1 

II 

in 

II 

1 


i 


1 

1 

i 
























B 

a 




1 



1 


1 

ii 

III 

II 

1 

1 

1 

1 


1 


II 

II 

1 

1 

1 

1 

1 


II 

II 

1 

1 

1 

1 

B 

1 

B 

i 

1 

II 

in 

II 

1 


i 


1 

1 

i 
























fl 





1 



1 


1 

ii 

li 

iS 

SI 


3 

1 


1 


31 

II 

1 

1 

1 

H 

1 


31 

II 

1 

1 

0 

B 

1 

S 

i 

i 

3 

Hi 

Si 

11 

1 


i 


1 

1 

i 
























B 





1 



1 


1 

ii 

III 

II 

1 

1 

1 

1 


1 


II 

II 

! 

I 

1 

1 

1 


II 

II 

1 

1 

1 

1 

5 

3 

1 

1 

i 

HE 

HE 

! 

1 


a 


1 

1 

i 
























B 





1 



1 


1 

ii 

III 

II 

1 

1 

1 

1 


1 


II 

II 


1 

1 

1 

1 


ii 

II 

1 

1 

1 

1 

1 

§ 

a 

a 

ii 

I 

m 

m 

1 


i 


1 

1 

i 
























B 





1 



1 


1 

ii 

III 

II 

1 

1 

1 

1 


1 


II 

II 

i 

1 

1 

1 

1 


ii 

II 

1 

1 

1 

1 

B 

1 

i 

i 

l 

II 

in 

n 

1 


i 



1 

i 
























B 








1 


1 

ii 

III 

II 

1 

1 

1 

1 


1 


II 

II 

i 

1 

1 


1 


ii 

II 

1 

1 

1 

1 

1 

1 

i 

i 

1 

II 

hi 

ii 

1 


i 


1 

1 

i 




















'!*»*• o< (Keen per ped mey aaty »li/>lly ■ 








































Visual Masters 6-85 





DATA DESCRIPTION SPECIFICATIONS 


IBM 


f.l» 

Keying 

Instruction 

Ciiphic 








| Pf oj» *mmf r 

Oiif 

Kt* 









G*?l //V4 I UM/O&O” 

*»•»•»•*! xi U S A 


ORDER ENTRY DISPLAY 


3 3 













SUBFILE 

A GROUP OF RECORDS HAVING THE SAME 
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INPUT 

MODIFY 

DISPLAY 



CONCEPTS: SUBFILE USES 


SEARCH MASTER FILES 
WHEN "KEY" FIELD UNKNOWN 




ENTER TRANSACTIONS 
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ALPHABETIC SEARCH 




CUSTOMER NAME 

ACCOUNT 
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USING A SUBFILE FOR CASH RECEIPTS 



ENTER CUSTOMER PAYMENTS. WHEN SCREEN IS FILLED, 
PRESS ROLL UP KEY. WHEN LAST PAYMENT IS KEYED, 
PRESS ENTER. 


CUST # 
082144 
082144 
082144 






INVOICE # CHECK # 
04105 - 26721 

04374 26721 

04801 267 
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SUBFILES 

- GENERAL RULES - 


• ARE DEFINED WITHIN A DISPLAY FILE 



• REQUIRE THE DEFINITION OF TWO RECORD 
FORMATS 


- SUBFILE RECORD (ALWAYS FIRST'.) 

- SUBFILE CONTROL RECORD (ALWAYS 
FOLLOWS) 
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V CREATE DISPLAY FILE NAMED "INDSRCH" 

T t 
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SDA ALTERNATE METHOD 



PROGRAMMER - 

- LAYS OUT DISPLAY ON WS 

- PROVIDES DETAIL INFORMATION FOR FIELDS 

SDA - 

- GENERATES DISPLAY FILE 


WS-36a 


Visual Masters 


6-103 










Sample RPG Workstation Code 



Control Level (L0-L9, 

R. SR, AN/OR) 

Indicators 

r 


Operation 

28 29 30 31 32 

Factor 2 

33 34 35 36 37 38 39 40 41 42 

Result Field 

r 

Resulting 

Indicators 

A 


■ 

| ® Form Type 

■ 

■ 

Factor 1 

Name 

43 44 45 46 47 48 

Length 

49 50 51 

X Decimal Positions 

2 

Q29CSQ3 ESI 

DBBDSBIEB 

o 

2 

9 

10 

11 

o 

2 

12 

13 

14 

I 

16 

17 

7 

8 


19 

20 21 22 23 24 25 26 27 

High 

54 55 

Low 

56 57 

Equal 

58 59 

c 












p 

!ii 


1 

In 




■ 


11 

lr? 

Jg 

1 

■ 

1 

II 

II 

II 

■ 

■ 

l| 


■ 


1 

1 

■ 

■ 

1 

■ 






| 

| 





c 










II 



■ 

| 

II 

II 




■ 


3 

a 

m 

15 

R 

Ii 

B 

E 

IS 

i 

13 

1 


II 


1 

1 

1 

1 

1 

1 






| 

| 





c 










il 


R 

R 


ii 

il 




■ 


s 

w 

.A 

L 

If] 

R 

B 

ffl 

n 


R 

!S 


■ 


1 

1 

■ 

1 

1 

1 






71 

a 





C 




1 

£ 





1 









■ 


9 

ot 

o_ 

1 

S 

E 

R 

15 

n 

1 



1 


1 

1 

1 

■ 

1 

1 






I 

l 





c 










1 










i 


5 

Jr 

m 

1 

1 

■ 

1 

i 

1 



1 


1 

1 

1 

1 

1 

1 







S 





c 






. 




1 










i 


SU 

l 8 

i 

1 

1 

■ 

II 

n 

S 

ii 

5 



1 



R 

H 

R 

R 

R 






| 

fe 





c 


L 








■ 










i 


HI 

Rl 


i 

I! 

*! 

S 

n 

s 

15 

15 



1 


R 

B 

1*1 

R 

R 

n 







1 





V 









■ 










■ 

j 

SI 

15 

El 

Si 

SI 

1 

1 

■ 

1 

■ 

1 



■ 


1 

1 

1 

1 

1 

i 






H 

15 





c 










II 










■ 

i 

1 

H 

■1 

III 

H 

K 

3 

19 

131 

131 

Rl 

II 



■1 


1 

1 


1 

1 

i 






| 

| 





c 

— 

_ 

_ 

_ 

_ 





II 



| 







■ 

i 

ii 

1 

■ 

■ 

II 

II 

II 

■ 

■ 

■ 

II 



II 


1 

1 

1 

■ 

1 

ii 






1 

1 



I 



r i r 

Sample COBOL Workstation Code 


V I 8 ~fl 2 16 ' 20 ~ 24 28 32 36 40 

! : i ti i i : r i i i i i : ■ i i i \ i rn i f i i i i i i 



S T A err. 1 

• 1 

1 I ! 

1 11 

! 1 I 

i—i—— 

j ! 

| j 

-!—!- 

. 

I 

•vJrtt 

f rv v 

SPLA 

i 1i— 

Ltd F 

OR H A 

T 1 S 

! | 

i ! 

1 - 

; i - 1 ! r 

' in\J 

Re'c' 

i 

i 

! 

i ; 1 

J 1 

i 

i i i 

i « t 

• i ! 


|Re A n 

r Mv 

r>^P- 

Cl lE 


’■ •' 1 




|Reaq 

X KM 

EM TS 

L- FI 

LE X 

NV a|u 

1 D 

■ 


] 

Hove 

B" 1 

# TO 

_ 1_.UA 

o : 




1 ! I 

| 1 

6r> R 

ETR V 

' ! 1 

j ; l 

1 ; 

• 1 1 

11 i 

i • ■ 

, j i 


_iSg B 

QTS ft 

EC P 


ro oo 

rl. 


; i 

‘! i ■ I 

u — Add 


MR 

nun 

BKS 

mm 

. i ! ! 

i ' i 

i ! ! 

nun 

8“ o 



im 

mi 

i ! i 

1 

■n 

1 |§0 s 

TART 

B 

• ; ' 

mm 

i 


■Si 

1 1 

_l_1_J 




; 

: 






















WORK STATION DATA MANAGEMENT 


• ALL SYSTEM FUNCTIONS MAY BE INVOKED FROM ANY 
WORK STATION 

• VALIDITY CHECKING AND HIGHLIGHTING CAPABILITIES 

• EXTENSIVE PROGRAMMING SUPPORT 

• IDU FOR THE ROUTINE JOBS 

• EXTENDS THE POWER OF THE COMPUTER BEYOND THE 
CONFINES OF A ROOM 





WS-43 


Visual Masters 6-109 



DATA 


ADMINISTRATION 




DATA BASE 


MAIN POINTS CONSIDERATIONS 



-MUST'BE CURRENT AND 
ACCURATE. 


- MUST HAVE SOPHISTICATED 
DOCUMENTATION AND FOLLOW 
NAMING CONVENTION METHOD. 


- MUST BE PROTECTED WITH 
"BACK-UP" COPIES. 


- MUST DETERMINE THE 
CONSEQUENCES OF A 
"SIMPLE" CHANGE. 


- MUST INSURE SECURITY OF 
CONFIDENTIAL DATA. 



DA-lb 




DATA ADMINISTRATION FACILITIES 

• FIELD REFERENCE FILE 

• FILE REFERENCE FUNCTION 

• DATA DIRECTORY 

• SECURITY 

• LIBRARIES 

• SAVE/RESTORE 


DA-2 


Visual Masters 6-115 












pile 


R£F£ «£A/Ce 


FU "CTiom 


data base 


/ / FILE'S 

/ / description 

/ / 

1 [ OSPFP 

=^0/ 




■\ 


• ;°co«o WG 


(I ^ 















• FORMAT TO FILE 

• FILE TO FILE 

CROSS REFERENCES 

DA-9 
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SECURITY 



DA-10 


Visual Masters 



SECURITY COMPONENTS 


6-124 


OBJECT 

AUTHOR¬ 

IZATION 



DA-11 


ZR30-0386 




SECURITY CONTROLS USE OF SYSTEM 



SIGN ON'. 
abca 



MEL DAB 


JOHN CCBX 


ROSE ABCA 


MATT ZXPA 


BECKY BAOP 
USER PASSWORD 


USER PROFILES 


DA-12 


Visual Masters 6-125 




SECURITY - USER PROFILE 


USER NAME: ROSE 

PASSWORD: ABCA 

OWNED 

AUTHORIZED 

OBJECTS 

OBJECTS 

EMPMSTP 

GLMSTL 

PAYCHK 

GLLIST 

PGROSS 

GLUPT 

PTAX 

GLBAL 

PFICA 

GLENT 

PW2 


PEDI]^^' 




DA-13 
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USER PROFILE 
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OBJECT AUTHORIZATION 


OWNED OBJECTS 


AUTHORIZED OBJECTS 


OWNER OR SECURITY 
OFFICER MAY GRANT 
VARIOUS LEVELS OF 
AUTHORIZATION 
TO OTHERS 


USER MAY BE GRANTED 
• OBJECT RIGHTS 

• EXISTENCE 

• MANAGEMENT 


• OPERATIONAL 


• DATA RIGHTS 


• READ 

• UPDATE 

• ADD 

• DELETE 


DA-16 


Visual Masters 




OBJECT TYPE , 

ENCE 

MENT 

ATIONAL 

READ 

ADD 

UPDATE 

DELETE 

COMMAND 

0 

0 

N 


• 



FILE-LOGICAL 

0 

0 

N ■ 



f 


FILE-PHYSICAL 

0 

0 

N 

N 

N 

N 

N 

LIBRARY 

0 

0 

N 

N 

M 

.. N 

N 

PROGRAM 

0 . 

0 

N 




• 


(PRESERVED FOR OWNER 
N= 'NORMAL AUTHORITY 



LOGICAL FILE SECURITY 



purchasing 

agent 




LOGICAL FILE 1 

ITEM NO. 

VENDOR NO. 
DESCRIPTION 
UNIT COST 
MINIMUM BAL. 
MAXIMUM BAL. 
STANDARD ORD. 
LEAD TIME 
QTY ON HAND 
QTY ON ORDER 


ORDER 

clerk 




PHYSICAL INVENTORY 

ITEM NO. 
DESCRIPTION 
VENDOR NO. 

UNIT COST 
UNIT PRICE 
QTY ON HAND 
QTY ON ORDER 
MINIMUM BAL 
MAXIMUM BAL 
STANDARD ORD. 

LEAD TIME 


LOGICAL FILE 2 

ITEM NO. ~ 
DESCRIPTION 
QTY ON HAND 
QTY ON ORDER 
UNIT PRICE 
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SECURITY OFFICER ROLE 


1. ESTABLISH THE LEVEL OF SECURITY REQUIRED 


USE DEFAULTS 


INDIVIDUAL 

PROFILES 


ALLOW INDIVIDUAL 
OBJECT OWNERSHIP 

ALLOW SECURITY 
OFFICER FUNCTIONS / 
TO SELECTED USERS 



IBM-SUPPLIED PROFILES 

CREATE/MAINTAIN NEW 
PROFILES 


GIVE USE OF CREATE 
COMMANDS TO USERS 


\ GIVE USE OF 
\ SECURITY 


- \ _ 


COMMANDS 




SECURITY OFFICER ROLE 


2. DEFINE USER PROFILE CONTENT 

INITIAL PROGRAM 
SPECIAL AUTHORITY 
MAXIMUM JOB PRIORITY 

3. ESTABLISH PASSWORDS 

(QUSER) 

QPGMR 

QSYSOPR 

QSECOFR 

QCE 

QPSR 

4. MONITOR SECURITY ASPECTS OF 
THE INSTALLATION 


SE12 




SYSTEM/38 SECURITY 

• ESSENTIAL FOR SUCH AN EASY TO USE 
SYSTEM 

• PART OF THE MACHINE ITSELF 

• CHECKS ACCESS AND OBJECT AUTHORITY 

• BASED ON THE USER PROFILE 

• CAN BE INCREASED GRADUALLY AS 
REQUIRED 
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SOURCE PROGRAMS 
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LIBRARIES 

OBJECTS: 

PROGRAMS 

CONTROL STATEMENTS 
DATA FILES 



o co 





CO 





LLI 

< 



DC 


Ml — 

S u- 

> DC 

O 

CM 

O LU 

LL 

Z) 

-J H 

CO 

Z 

Q_ CO 

Q 

LLi 

^ < 

Q 


LU ^ 
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THE LIBRARY SEARCH LIST 



DA-22 


Visual Masters 6-135 




HOW DO YOU FIND AN OBJECT? 



V DSPLIBL COMMAND SHOWS LIST YOU ARE CURRENTLY 
USING 
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SR-2 






LIBRARY CONSIDERATIONS 


ONE LIBRARY PER OPERATOR 
ONE LIBRARY PER APPLICATION 

i 

ASSIGN BASED UPON SAVE / RESTORE 
FREQUENCY 





QSYS 


QGPL 

QTEMP 

QIDU (OPT) 

QRPG (OPT) 

QS3E (OPT) -\pj 

QCBL , (OPT) 







SAVE/RESTORE 



DA-23 
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PROGRAMMING 


TOOLS 
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DECLINING COST OF COMPUTING 





THE INCREASING COST OF PROGRAMS 
HOW THE D.P. DOLLAR IS SPENT 



Mai 


asTi 











PROGRAMMER SERVICES 

O , 

I. SEU / DFU / QUERY/ SDA 

EXTERNALLY 
DESCRIBED 
DATA 


III. SYSTEM REQUEST KEY PERMITS TWO INTERACTIVE JOBS 
AT ONE WORK STATION 
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INTERACTIVE DATA BASE UTILITIES 



PT-5 
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SOURCE ENTRY UTILITY 














To Initiate SEU 


EDTSRC SRCFILE(PGMSRC) SRCMBR(SRCSTATS) 

r*RPG' 

TYPE <CBL 
irrt w C[ _ 

ETC . 


i r 

OR - 


PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 

1. DESIGN/EXECUTE DFU APP (APP), .(OPTIONS) 

2. DESIGN/EXECUTE QUERY APP (APP), .(OPTIONS) 

3. CREATE OBJECT OBJECT NAME. TYPE, PGM FOR CMD, (TEXT) 

4. CALL PROGRAM PROGRAM NAME 

5. EXECUTE COMMAND COMMAND 

6. SUBMIT JOB (JOB NAME), (COMMAND) 

7. DISPLAY SUBMITTED JOBS 

8. EDIT SOURCE .(SRCMBR), (TYPE), (TEXT) 

9V DESIGN DISPLAY FORMAT (SRCMBR) 

90. SIGN OFF (*NOLIST *LlST) 

TYPES: 8SCF, CBL, CL, CLP, CMD, CMNF, OSPF, LF, PF, PRTF, RPG, TXT 

OPTION: 3 PARM: TYPE: PARM 2:. 

COMMAND: “ - - 

TEXT: LOG REQUESTS: *YES 

SRC FILE: SRC LIB: OBJ LIB: JOBD: 

CF3 - COMMAND ENTRY CF4 - PROMPT (3 & 5 ONLY) "CF6 - DSPMSG 
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SEU MEMBER LIST 
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Foil Masters 


RPG III SOURCE-ENTRY 


SEU US W:1 Mbr: APR056 Scan: 

FMT C .CL0N01N02N03Factori+++0pcdeFactor2+++ResultLenDHHiLoEqComment+++++ 

*£**BEGINNING OF DATA**** 

^0014.00—- ~;C 01 COUNT COMP 505 JQ 02^C 

0015.00^* C 02N02 EXCPT \ 

0016.00 C 02N02 GOTO REPEAT 

0017.00 C SETON LR 

*******£N[) Qp DATA******* 


FMT SEQNBR Level N01N02N03 Factorl 

C 0014.00 _ 01 COUNT 

Result Len Dec H/A HiLoEq Comment 

__-r JQ 02<: 

•Resulting indicators entries not valid- 


Opcode Factor2 
COMP 505 





COBOL SOURCE - ENTRY 


r 


• SEU 
FMT 
0006. 
0007. 
0008. 
0009. 
0010. 
0011. 
0012. 
0013. 
0014. 
0015. 
0016. 
0017. 
0018. 
%0019. 
- 00020 . 
-T 0021. 


US W: 


CB .. 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
no 

00 > 

oo^- 

00 ^ 


FMT SEQNBR 
GB 0020.00 
ECKS. 


1 Mbr: APC20B Scan: 

OBJECT-COMPUTER. IBM-S38. 

SPECIAL-NAMES. REQUESTOR IS DSP. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT APLTRANB-FILE ASSIGN TO DATABASE-APLTRANG 
ORGANIZATION IS INDEXED 
RECORD KEY IS VNDNBR OF PAYBLE 
ACCESS MODE IS RANDOM. 

SELECT APDENTRB-FILE ASSIGN TO WORKSTATION-APDENTRB 
ORGANIZATION IS TRANSACTION. 

DATA DIVISION. 

FILE SECTION. 

FD APLTRANB-FILE LABEL RECORD IS STANDARD. 

01 N DBFILE. 

'—.Zm DDS-PAYBLE OF APLTRANB REPLACING ##CHECK### BY CHECKS.- 
FD APDENTRB-FILE LABEL RECORD IS OMITTED. SNL 

Cont Area-A Acca—B 

COPY DDS-PAYBLE OF APLTRANB REPLACING ##CHECK### BY CH 


{^Syntax of COPY statement checked but COPY not performed. 


Fxl 




l/NOTE REPLACING CLAUSE! 





HELP 



1 . 

2 . 

3. 

4/ 

5. 

6 . 

7. 

8 . 

9. 

10 . 

11 . 

12 . 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20 . 
21 . 
22 . 



SEU HELP MENU 

SEU Introduction 
Edit Display Introduction 
D, DD 

C,' CC, M, MM, A, An, B, Bn 
I, In 

F, Fff ? IF,’IFff, IFffn 
S, IS, ISn 
P, Pff, IP, IPff. 

+n, -n, nnnn.nn . 

Rn, RR, RRn, Ln, LL, LLn 
Wn ' 

Browse or Copy from Another Member 

CF1 - Exit Display 

CF5 - Services Display 

CF6 - Cancel Pending Operations 

CF7 - Scan or Substitute Forward 

CF8 - Scan or Substitute Backward 

CF12 - Switch Upper/Lower Case 


Next Option: 
CF1 To Exit 

- Delete 

- Copy and Move 

- Insert 

- Format Lines and Inserts 

- Skeleton Lines and Inserts 

- Prompt Lines and Inserts 

- Record Positioning 

- Shifting Data Right or Left 
-Windowing (Sideways Viewing) 


Special Keys: HOME, ROLL, HELP, DELETE, INSERT, PRINT, DUP 
EDTSRC Command Options and Member List Display 
Work Space Concepts and Recovery Display 
List of Prompt Formats and Source Types 


~\ 
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NOTE 


(CF1) 


TO TERMINATE SEU SESSION 






SEU 


EXIT 


Select one of the following: 

1. Exit without update 

2. Exit and update member 

3. Exit and create a new member 

4. Update member, no exit 

5. Create member, no exit 

6. Return to editing 


Option: 2 

For options 2 to 5: 

Resequence member (Y N): 


MEMBER 
MYFILE 
Y Start: 


FILE 

APPSR'C 

1.00 


LIBRARY 

A pLIB 

Increment: 1.00 


For options 1 to 3: 

Return to member list (Y N): N 

For options 1 to 6: 

Print source listing (Y N): N 




TOTAL RECORDS ADDED 

2 2 


CHANGED 


DELETED 


SYNTAX ERRORS LEFT 


(ENTER: TO GO BACK TO PROGRAMMER MENU/ 
COMMAND-ENTRY SCREEN) 
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SEU FACILITIES 


• FUNCTION 

• INSERT 

• DELETE 

• MOVE 

• SCAN WITH SUBSTITUTION 

• COPY 

• SYNTAX 

• PROMPTING 

• BROWSE 

• MULTIPLE LINE OPERATIONS 

• USES WORK FILE 


LINE COMMAND 
I 

D, DD 
M, MM 
CMD KEY 5 
C, CC 

CMD KEY 5 
P 

CMD KEY 5 


PT-10 
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SEU FACILITIES 



-N 

SERVICES 


Scan/Substitute (CF7-Forward CF8-Backward) 

Scan characters: 

Substitute characters: 

From/.to seqnbr: .00 9999.99 'Start/end position: 001 080 

Display before substitution (Y N): Y Compress/Expand (Y N): N 



Date 

Scan: 81/11/04 Scan operator (LT/GT/EQ): 


Reset all (Y N): N 


Browse/Copy another member (Y/N): N Screen separator Line: 14 
Member: APLVANLX File: APPSRC Library: APLIB 


Browse Spool File (Y/N): Y 

File: QPDDSSRC Jobname: 

DSP0UTQ (Y/N): N Outq: 


Screen separator line: 14 
APLVANLX User: APWTEAMX 

APWOUTQ i Library: *LIBL 


Splnbr: *LAST 
Jobnbr: 


Syntax Checking 

When added/modified (Y N): Y 

Syntax check member. From/to seqnbr: .00 

Modify type from EDTSRC command: LF 



.00 






SEU BROWSE COPY FUNCTION 


SEU US W:1 Mbr: APLVANL 

FMT A* .A*. 1 .2 ... 

★★★★BEGINNING of data**** 


Scan: 
4 ... 


... 6.7 


SEU US W:1 Mbr: APLVANLX Scan:. 

FMT A*.A*. 1 .2.3.4. 

★★★★BEGINNING OF DATA**** 

0001.00 A*TEAMX LOGICAL FILE STRADDLING 2 PHYSICALS 
0002.00 A R VENDMAST Pfll 

0003.00 A K VNDNBR 

0004.00 A R PAYBLE PFIL 

0005.00 A K VNDNBR 

0006.00 A S STATUS CMP 

0007.00 A S STATUS CMP( 


PFILE(APVEND.APLIB) 

PFILE(APPTRANX.APLIB) 

CMP(EQ ‘T*) 

CMP(EQ 'E 1 ) 
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SEU SPOOL FILE BROWSE 


,@ FIX IT 



SEU US W:1 Mbr: APLVANLX Scan: 

FMT A*.A*. 1 ... ... 2 ... ... 3 ... ... 4. 

****BEGINNING OF DATA**** 

0001.00 A*TEAMX LOGICAL FILE STRADDLING 2 PHYSICALS 



0002.00 

A . 

R VENDMAST 

PFILE(APVEND.APLIB) 

0003.00 

A 

K VNDNBR 


0004.00 

A 

R PAYBLE 

PFILE(APPTRANX.APLIB) 

0005.00 

A 

K VNDNBR 


0006.00 

A 

S STATUS 

CMP(EQ ’T 1 ) 

0007.00 

A 

S STATUS 

CMP(EQ * E 1 ) 


*******0J\JQ Qp 

DATA******* 

Browse 

Mbr:SPOOLFILE 

W:1 Pos: 

Scan: * 

200 

A 

R.VENDMAST 

PFILE(APVEND.APLIB) 

* 



CPF7902-*"*-_ 

300 

A 

K VNDNBR 

■—— 

400 

A 

R PAYBLE 

PFILE(APPTRANX.APLIB) 

500 

A 

K VNDNBR 


600 

A 

S STATUS 

CMP(EQ ‘T‘) 

700 

A 

S STATUS 

CMP(EQ 1 E 1 ) 


***** 


D OF SOURCE ***** 


File specified in keyword not found 


in 

in 







DATA FILE UTILITY 
® MAINTAIN A FILE 

- UPDATE 

- ADD 

- DELETE 
-VERIFY 

- ERROR DETECT 
AND CORRECT 

• DISPLAY FILE (INQUIRY) 

- BROWSE ONLY 

• "FAST PATH" 

- USE DEFAULTS 
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COMMAND ENTRY DISPLAY 


:: DSNDFUAPP 







PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 

1. DESIGN/EXECUTE DFU APP - (APP), .(OPTIONS) 

2. DESIGN/EXECUTE QUERY APP (APP), .(OPTIONS) 

3. CREATE OBJECT OBJECT NAME, TYPE 

4. CALL PROGRAM PROGRAM NAME 

5. EXECUTE COMMANO COMMAND 

6. SUBMIT JOB (JOB NAME), (COMM/ 

7. DISPLAY SUBMITTED JOBS 

8. EDIT SOURCE .(SRCMBR),• (TYPE), 

9V DESIGN DISPLAY FORMAT (SRCMBR) 

90. SIGN OFF (*NOLIST *LIST) 


OBJECT NAME, TYPE, PGM FOR CMD, (TEXT) 

PROGRAM NAME 

COMMAND 

(JOB NAME), (COMMAND) 

.(SRCMBR),- (TYPE), (TEXT) 

(SRCMBR) 

{*NOLIST *LIST) 


TYPES: BSCF, CBL, CL, CLP, CMD, CMNF.OSPF, LF, PF, PRTF, RPG, TXT 


OPTION: i PARM: 
COMMAND: 


TYPE: 


PARM 2: 


TEXT: LOG REQUESTS: *YES 

SRC FILE: __ SRC LIB: OBJ LIB: JOBD: . 

CF3 - COMMAND ENTRY CF4 PROMPT (3 & 5 ONLY) XF6 - DSPMSG 
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FILE REVIEW PROMPT 



FILE REVIEW PROMPT FOR FILE APLTRANX 


For each record format to be used, enter R to review the fields, A to select all 
fields, or E to enter the fields later: 

RECORD FMT DESCRIPTION 
(T) PAYBLE TEAMX PHYSICAL FILE 


o 

m 





FILE REVIEW HELP 

Valid input values for each record format: 

R - Review fields 

A - Select all fields 

E - Enter fields later 

Enter R, A, or E and press the Enter key to continue. 

Enter A and press the Exit Application command function key 
(CF1) to generate a default definition using all record 
formats selected. 


RECORD FMT 
DESCRIPTION 


- Record format name in the data base file. 

- Record format description from the data 
description specifications (DDS). 
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FIELD REVIEW PROMPT 




FIELD 

REVIEW 

PROMPT FOR RECORD PAYBLE 

an X next 

to each field tc 

) be used or enter *ALL: 

FIELD NAME 

LENGTH 

TYPE 

DESCRIPTION 

VNDNBR 

5,0 

P 

VENDOR ID NUMBER 

INVNBR 

8,0 

P 

VENDORS INVOICE AMOUNT 

DATREC 

6,0 

P 

DATE RECEIVED 

MERCH 

7,2 

P 

MERCHANDISE AMOUNT 

NET 

7,2 

P 

NET AMOUNT PAID 

STATUS 

1 

A 

E=ENTERED T=TO PAY D=DELETE P=PAID 

DTPAID 

‘•6,0 

P 

DATE PAID 

CHECK# 

6;0 

P 

CHECK NUMBER 

DEPTNO 

3,0 

P 

DEPARTMENT CHARGED 
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BASIC FIELD DEFINITION PROMPT 



BASIC FIELD DEFINITION PROMPT FOR RECORD PAYBLE 



O 

m 


Define format ID AB - TEAMX PHYSICAL FILE 


FIELD NAME 

ORDER 

INPUT 

VNDNBR 

1.0 

X 

INVNBR 

2.0 

X 

DATREC 

3.0 

X • 

MERCH 

4.0 

X 

NET. 

5.0 

X 

STATUS 

6.0 

X 

DTPAID 

7.0 

X 


DISPLAY VERIFY XDEF XVAL 

X 

x ■ : 

X 

X 

X 

X D 

X 








Foil Masters 


EXIT APPLICATION DEFINITION MENU 



EXIT APPLICATION,DEFINITION MENU 


Select one of the following: 

1. Restart definition 

2. Modify definition 

3. Delete definition 

4. Save definition 

5. Create application 


Option: 5 


Display fmt 'KE' red fmt PAYBLE too large for console. 
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TYPICAL DFU - DATA ENTRY SCREEN 





AA VENDMAST DB 

FORMAT 

APD10 

ADD 

VENDOR 

VENDOR 

ADDRESS LINE 1 


NUMBER 

NAME 




ADDRESS LINE 

2 

ADDRESS ! 

LINE 3 

ZIP 

CODE 

AREA 

CODE 

PHONE 

TERMS TERMS 

% ‘-DAYS 

V. 

CLASS 

ACTIVE SALESPERSON 

RECORD 

CODE 

V 

DISCOUNT 

DISCOUNT 

PURCHASES 

PURCHASES 

BALANCE 


TAKEN 

MTD 

TAKEN 

YTD 

YTD 

YTD 

OWED 

f 

SERVICE 

RATING 

DELIVERY 

RATING 

COMMENTS 

VENDOR 

ABOUT 

SEARCH 

CODE 



V _:_ J. 





SYSTEM/38 QUERY FACILITY 

CREATE "ONE TIME" REPORTS 

CREATE PERMANENT REPORTS 

EITHER HARD COPY OR CAN BE VIEWED ON SPOOL FIL 
VIA WORK STATION 

CAN BE DONE OUTSIDE DP DEPARTMENT FOR THOSE 
WITH AUTHORITY . 

7 

UNSCHEDULED REPORTS 
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QUERY 





/ \ 
V J 


• EASILY AND QUICKLY USED 

• 'ONE-TIME' OR INFREQUENTLY REQUIRED REPORTS 

• PROGRAMMER OR NON-DP USER 
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TO INITIATE QUERY 



r 


PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 

1. DESIGN/EXECUTE DFU APP 

2. DESIGN/EXECUTE QUERY APP 

3. CREATE OBJECT 

4. CALL PROGRAM 

5. EXECUTE COMMAND 

6. SUBMIT JOB 

7. DISPLAY SUBMITTED JOBS 

8. EDIT SOURCE 
. 9v DESIGN DISPLAY FORMAT 

90. SIGN OFF 


(APP), .(OPTIONS) 

(APP), .(OPTIONS) 

OBJECT NAME, TYPE, PGM FOR CMD, (TEXT) 

PROGRAM NAME 

COMMAND 

(JOB NAME), (COMMAND) 


(SRCMBR) ,• (TYPE), (TEXT) 
(SRCMBR) 

(*NOLIST *LIST) 


TYPES: BSCF, CBL, CL, CLP, CMD, CMNF, OSPF, LF, PF, PRTF, RPG, TXT 

TYPE: PARM 2: 


OPTION: p PARM: APQ I 0 
COMMAND: , --- 


TEXT: 

SRC FILE: 


SRC LIB: 


OBJ LIB: 


LOG REQUESTS: *YES 
JOBD: . 


CF3 - COMMAND ENTRY CF4 - PROMPT (3 & 5 ONLY") ~CF6 - DSPMSG 




J 














FILE REVIEW PROMPT FOR FILE APLVEND 
FOR EACH RECORD FORMAT TO BE USED, ENTER R TO REVIEW THE FIELDS, 
A TO SELECT ALL FIELDS, )R E TO ENTER FIELDS LATER: 

RECORD FMT DESCRIPTION 

(r)VENDMAST VENDOR MASTER (LOGICAL) RECORD 


(ENTER) 
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QUERY 




FILE REVIEW HELP 

Extended description: 

Select record format 

Enter one of the following options next to the record 
formats (at least one) to be used in the application: * 

R - Show the FIELD REVIEW PROMPT for this record format so 
that you may select individual fields from it. 

A - Display all of the fields of the selected record format 
on the QUERY DEFINITION PROMPT and thus bypass the FIELD 
REVIEW PROMPT for this record format. +’ 
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FIELD REVIEW PROMPT FOR RECORD VENDMAST 


Place 

an X next to 

each field 

to be used or enter *ALL: 

X 

FIELD NAME 

LENGTH 

TYPE 

DESCRIPTION 

® K VNDNBR 

5,0 

P 

VENDOR ID NUMBER 


VNDNAM 

25 

A 

VENDOR NAME 


VNDAD1 

25 

A 

ADDRESS LINE 1 


VNDAD2 

25 

A 

' ADDRESS LINE 2 


VNDAD3 

-25 

A 

ADDRESS LINE 3 


VNDZIP 

5,0 

P 

ZIP CODE 


VNDACD 

3,0 

P 

AREA CODE 


VNDPHN 

7,0 

P 

PHONE NUMBER 


VTRMPC 

3,3 

P 

NORMAL PROMPT PAY DISCOUNT % 


VTRMDA 

2,0 

- P 

NORMAL NO. OF DAYS FOR TERMS 


VNDCLS 

2,0 

P 

VENDOR CLASS 


ACTCD 

1 

A 

A=ACTIVE D=DELETE S=SUSPEND 


VNDSLS 

25 

A 

VENDOR SALESMAN 


DCTMTD 

7,2 

P 

DISCOUNT TAKEN THIS MONTH • 

DCTYTD 

9,2 

P 

DISCOUNT TAKEN THIS YEAR 

PCHMTD 

9,2 

P. 

PURCHASES THIS MONTH 


(ROLL-UP) 
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SELECTION TEST PROMPT 
ENTER TESTS FOR *SELECT/*OMIT GROUP: 
FIELD NAME REL TEST 
(PCHYTD) (^Gt XTOQO) _ 


(ENTER) 


*SELECT 


+ 
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Foil Masters 5-217 



V 


D 

71 


11/04/81 09:51:36 VENDOR RANKING BY PURCHASES YTD WITHIN 

CLASS VENDOR VENOOR TERMS TERMS 

NUMBER NAME X DAYS 


COMMENTS ABOUT 
VENDOR 


11 6183 

EXCELLENT 

the learning institute 

50 

10 

1 1 

GOOD 

210 

GEORGE BAILEY COLLEGE 

100 

31 

11 
NEW 

A 5892 
customer 

PETE MOSS C SONS 

150 

60 

1 1 

GOOD 

10 

DEALER 

JO M N M. SMITH € SONS 

50 

10 

11 

GOOD 

16 

customer 

BRAND X PEER 

50 

20 


12 

FAIR 

24133 

CUSTOMER 

PATRICK UNDERHILL 

100 

45 

12 

GOOD 

88714 

ROSS L ROSS 

50 

10 

12 

GOOF 

612 

R.H.GROCERY STORE 

100 

45 

12 

7733 

SEAL PRODUCTS INC. 

100 

30 


GOOD 


15 

94946 

ALLEN'S HARDWARE INC. 

50 

10 

GOOD 

15 

33333 

CLIFFURO paley md 

150 

60 

WATCH 

15 

ACCOUNT 

25256 

C.C. GOODWILL INC. 

100 

45 

GREAT 

15 

5G75 

PETER VAN ROTH CORP. 

80 

15 

GOOD 

15 

21 

MEMORIAL CARETAKERS 

50 

10 

GOOD 


20 296 WOODSTOCK GRAINERY , 

GOOD 

50 

10 

2G 688 SHARON PHILIPS CORP. 

WATCH ACCOUNT 

100 

10 


22 714 GUY COHRAN CORP. 

WATCH ACCOUNT 

100 

60 

22 63410 ROBERT COTTON INC. 

NEW ACCOUNT 

50 

10 


27 

GOOD 

24001 

ST ALBANS UNIVERSITY 

100 

45 

27 

431 

MARGARET HART INC. 

100 

60 



VENDOR CLASS PAGE 1 


DISCOUNT 

PURCHASES 

DISCPC 

SERVICE 

DELIVERY 

TAKEN 

YTO 

YTD 


• RATING 

RATING 


72. Ou 

8 » 500.00 

• 01 


A 

A 

72.00 

8 * 000.00 

.01 


B 

C 

72.00 

5,500.00 

.01 


A 

A 

72.00 

3,250.00 

.02 


A 

A 

72.OD 

1,500.00 

.05 


A 

A 

3bO.DC 

26,750.00 


$ 





.02 

/ 



72.00 

10,000.00 

01 


A 

.C 

72.0 0 

9,500.00 

.01 


B 

B 

72.00 

4,750.00 

.02 


A 

A 

72.00 

4,500.00 

.02 


C 

D 

288.00 

28,750.00 


£ 





.02 

/ 



72.00 

11,250.00 

.01 


A 

A 

72.00 

6,25u.00 

.01 


F 

F 

72.00 

6,000.00 

.01 


A 

D 

72.00 

2,500.00 

.03 


B 

C 

72.00' 

2,000.00 

.04 


A 

A 

360.00 

28,000.00 


£ 





. .02 

/ 



72.00 

6,750.uO 

.01 


A 

A 

72.00 

750.00 

. 10 


F 

F 

144.00 

7,500.00 


£ 





.06 

/ 



72.00 

7,250.00 

.01 


D 

C 

72.00 

7,000.00 

.01 


C 

D 

144.00 

14,250.00 


s 





.01 

/ 



72.00 

12,000.00 

.01 


D 

C 

72.00 

11,000.00 

.01 


C 

A 
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SCREEN DESIGN AID 



INTERACTIVELY 
CREATE DISPLAY FILES 
CREATE MENDS 

Jt 

CREATE MENU CL PROGRAMS 

TEST DISPLAY FILES 

MAINTAIN MENUS AND DISPLAY FILES 


PT-12 
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TO INITIATE SDA 



PROGRAMMER MENU 
SELECT ONE OF THE FOLLOWING: 

1. DESIGN/EXECUTE DFU APP (APP), .(OPTIONS) 

2. DESIGN/EXECUTE QUERY APP (APP), .(OPTIONS) 

3. CREATE OBJECT ' OBJECT NAME, TYPE, PGM FOR CMD, (TEXT) 

4. CALL PROGRAM PROGRAM NAME 

5. EXECUTE COMMAND ' COMMAND 

6. SUBMIT JOB (JOB NAME), (COMMAND) 

7. DISPLAY SUBMITTED JOBS ' 

8. EDIT SOURCE .(SRCMBR),■ (TYPE), (TEXT) 

9V DESIGN DISPLAY FORMAT (SRCMBR) 

90. SIGN OFF (*N0LIST *LIST) 

TYPES: PSCF, CBL, CL, CLP, CMD, CMNF, OSPF, LF, PF, PRTF, RPG, TXT 

OPTION: q ?ARM: APDENTRB TYPE: PARM 2: 

COMMAND: -“ - 

TEXT: LOG REQUESTS: *YES 

SRC FILE: __ SRC LIB: OBJ LIB: JOBD: . 

CF3 - COMMAND ENTRY CF4 PROMPT (3 & 5 ONLY] "CF6 - DSPMSG 
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SCREEN DESIGN AID 
HELP MENU 


to 

O 

tn 



2. DESIGNING RECORD FORMATS 

3. DESIGN RECORD FCRMAT MENU 

4. MEMBER LIST 

5. RECORD FORMAT LIST. 

6. FILE DEFINITION 

7. RECORD FORMAT DEFINITION 

8. FIELD DEFINITION 

9. WORK DISPLAY CONDITIONING 

10. DATA BASE FILE DISPLAYS AND LIST 

11. FIELD LIST 

12. WORK DISPLAY 

13. EXTENDED FIELD DEFINITION 

14. SUBFILE CONTROL RECORD DEFINITION 

15. SUBFILE RECORD FORMAT DEFINITION 

16. SAVE AND CREATE OPT IONS 

17. DESIGNING A MENU 

18. INITIAL MENU DEFINITION 

19. MENU DEFINITION 

20. TESTING AN EXISTING RECORD FORMAT 



**HELP TEXT FOR SDA MESSAGES - POSITION CURSOR 
AND PRESS HELP KEY 

** TO RETURN TO THIS MENU - PRESS CF2 KEY - ' . 

./" \ , 
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1 


SDA OPTION MENU 



OPTION MENU 

SELECT ONE OF THE FOLLOWING: 

1. DESIGN DISPLAY RECORD FORMATS 

2. DESIGN A MENU 

3. TEST AN EXISTING DISPLAY RECORD FORMAT 
OPTION: 2 



WITHIN SDA 

PRESS HELP KEY TO DISPLAY HELP TEXT FOR CURRENT DISPLAY 
PRESS CF1 KEY TO EXIT ANY OPTION AND ALLOW SAVING CHANGES 
'PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEXT DISPLAY 
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INITIAL MENU DEFINITION 




SDA 

MENU/MEMBER: 


INITIAL MENU DEFINITION 
NEWMNU 


(BLANK FOR MEMBER LIST DISPLAY) 

CL SOURCE FILE QCLSRC 

LIBRARY: ' *LIBL 

ALLOW THIS MENU ON THE FOLLOWING DISPLAY SIZES: 

(Y/N) 

large display (24X80): Y 

small display (12X80) 
console (16X64) 

NUMBER OF COLUMNS FOR THE MENU (1 or 2): J 
MENU TITLE: SAMPLE MENU NUMBER ONE!!!!! 
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SB 


MENU DEFIN 




MENU DEFINITION 


CTL OPTION MENU PROMPT 

_ _T_ Edit payroll hours 

_2 Calculate payroll 

_3 Display 1 ibrary T^t 


—ETC— 


CTL: I-Insert D-delete 

C-Copy A-Copy after 
P-Prompt for Command now 
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SDA OPTION MENU 


iMttiiiiiii 




SDA 


OPTION MENU 



SELECT ONE OF THE FOLLOWING: 

1. DESIGN DISPLAY RECORD FORMATS 

2. DESIGN A MENU 

3. TEST AN EXISTING DISPLAY RECORD FORMAT 
OPTION: 1 


'-last 

|sf 

'CV 

■ -3-4* 

vli-V ;; M 

f .■■■;% :; : :i 


; /JR :• •. A* 


WITHIN SDA 

PRESS HELP KEY TO DISPLAY HELP TEXT FOR CURRENT DISPLAY 
PRESS CF1 KEY TO EXIT ANY OPTION AND ALLOW SAVING CHANGES 
' PRESS CF2 KEY TO BACK UP TO THE PREVIOUS DISPLAY 
PRESS ENTER/REC ADV TO ADVANCE TO THE NEXT DISPLAY 


*.-? •*“ > . -X? f 

! 11 

..n 
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SDA UTILITY 

CHOOSING DB FIELDS FOR WORK DISPLAY 



SDA DATA BASE FIELD DISPLAY 

RECORD: PAYBLE 

TO SCROLL THE FILE ENTER THE NUMBER OF FIELDS TO ROLL ROLL: 15 

TO SEARCH THE FILE FOR A FIELD ENTER THE FIELD NAME FIELD: 

FOR X-I-O-B ENTER X FOR THE EXTENDED DATA BASE FIELD DISPLAY. 

ENTER I, 0, OR B FOR USAGE AND SELECTION OF THE FIELD, 


X-I-O-B 

FIELD 

LENGTH 

TYPE 

COLUMN HEADING 

—ft*— I 

VNDNBR 

5,0 

P 

VENDOR NUMBER 

—1 

INVNBR 

8 

C 

VENDOR INVOICE NUMBER 

—1 

DATREC 

6,0 

P 

DATE RECEIVED 


MERCH 

7,2 

P 

MERCHANDISE AMOUNT 


NET 

7,2 

P 

NET AMOUNT PAID 


STATUS 

1 

C 

STATUS OF RECORD 


DTPAID 

6,0 

P 

DATE PAID 


CHECK# 

6,0 

P 

CHECK NUMBER 

-►“JL 

DEPTNO 

3,0 

P 

DEPARTMENT NUMBER 




(CF2) 




SDA UTILITY 

POSITIONING TEXT & FIELDS ON WORK DISPLAY 





g 


10 

11 


2.3.4 ... 

'ACCOUNTS PAYABLE INVOICE 



.. 6 ... 
*DATE 


7.8 

*TIME 


&n 

&21 

&31 

&41 

&51 


12 

13 

14 

15 

16 

17 

18 
19 


WO 'PRESS ENTER TO CONTINUE' 'COMMAND KEY 12 - END OF JOB' 

21 

• 22 'INVALID VENDOR NUMBER' 

1:VNDNBR 2 : INVNBR 3 : DAT RE C 4 : MERCH 5:DEPTN0 





(ENTER) 



SDA UTILITY 

REQUESTING EDITING/CONDITIONING 




2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


■>- 23 



.. 1 ... 


2 ...... 3.4 ... 

ACCOUNTS PAYABLE INVOICE 


.. 6.7.8 

DD/DD/DD TT:TT:TT 


VENDOR NUMBER: 33333- 
VENDOR INVOICE NUMBER: IIIIIIII 
. DATE RECEIVED: 333333- 

. MERCHANDISE AMOUNT: 3333333- 
DEPARTMENT NUMBER: 333- 


PRESS ENTER TO CONTINUE COMMAND KEY 12 - END OF JOB 


^INVALID VENDOR NUMBER 


*HENTER) 
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SDA UTILITY 

REQUESTING SAVE/CREATE 



SDA DESIGN RECORD FORMAT MENU 


SELECT ONE 0 C THE FOLLOWING: 

1. FILE DEFINITION 

2. RECORD FORMAT DEFINITION 

3. FIELD DEFINITION 

4. SUBFILE CONTROL RECORD DEFINITION 

5. SUBFILE RECORD FORMAT DEFINITION 

6. SAVE DDS/CREATE DISPLAY DEVICE FILE 

OPTION: 6 



NEW OR EXISTING DISPLAY RECORD FORMAT 

(BLANK FOR RECORD FORMAT LIST DISPLAY) 

RECORD FORMAT: 

APENTR 

ENTER THE SOURCE FILE FOR DDS 

DDS SOURCE FILE: 

APPSRC 

LIBRARY 

LIBRARY: 

APLIB 

NEW OR EXISTING MEMBER NAME 



(BLANK FOR MEMBER LIST DISPLAY) 

MEMBER: 

APDENTRB 


ENTER ADDITIONAL RECORD FORMATS TO BE ADDITIONAL RECORDS: 

DISPLAYED ON THE WORK DISPLAY 



HENTER) 

N 
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INTERACTIVE DATABASE UTILITIES 


® EASY TO USE 

® USE THE DATABASE DEFINITIONS 
a CAN REPLACE APPLICATION PROGRAMS 


PT-36 
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)WLEDGE REQUIRED TO CONTROL A SYSTEM 


3 


— '■ 1 —— 11 *! - . 

OPERATION CONTROL LANGUAGE 
UTILITY CONTROL STATEMENTS 
OPERATOR CONTROL COMMANDS 
CCP COMMANDS 
CCP ASSIGNMENT SET 


OPERATION CONTROL LANGUAGE 
UTILITY CONTROL STATEMENTS 
OPERATOR COMMANDS 
UTILITY COMMANDS 


34 


OPERATION CONTROL LANGUAGE 
UTILITY CONTROL STATEMENTS 
OPERATOR COMMANDS 


38 


CONTROL LANGUAGE 
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CONTROL LANGUAGE 


CAN: 



® CALL programs 

CALL 

HISPGM 

® COPY files 

CPYF 

THISFILE THATFILE 

® DELETE files 

DLTF 

THISFILE 

® DISPLAY libraries 

DSPLIB 

*ALL 

® POWER down 

PWRDWNSYS 

. DELAY(120) 

® REORGANIZE files 

RGZPFM 

THATFILE 

® SEND messages 

SNDBRKMSG 

CLOSING DOWN . . . 

AND MUCH MORE . . . 




PT-39 
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CL STRUCTURE 


DSPtB 


GAL I Bj pUTPUT (*LIST), 


display library name on printer 


VERB 


NOUN PHRASE 



(3 CHARACTERS) (1-6 CHARACTERS) 


PARAMETERS 



(POSITIONAL OR KEYWORD (MIXED)) 


PT-40 


Visual Masters 6-179 
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CONTROL LANGUAGE VERBS 


ADD 


*ELSE 


OVR 

override 

SAV 

save 

ALC 

allocate 

*END 




SBM 

submit 

[APY 

apply] 



[PCH 

patch] 

SIGNOFF 


*G0T0 


*PGM 

program 

SND 

send 

CALL 


GRT 

grant 

[PRP 

prepare] 

[SRV 

service] 

CHG 

change 



PWR 

power 

STR 

start 

CLR 

cl ear 

HLD 

hold 





CNL 

cancel 



RCV 

receive 

TRF 

transfer 

CPY 

copy 

*IF 


*RETURN 

[TRC 

trace] 

CRT 

create 

INZ 

initialize 

RGZ 

reorganize 

TRM 

terminate 





RLS 

release 



*DATA 


*J0B 


RMV 

remove 

[VFY 

verifyl 

DCL 

declare 



RNM 

rename 

Lvry 

vary J 

DLT 

delete 

[LOD 

load] 

RPL 

replace 



[DMP 

dump] 



RRT 

rerate 

*WAIT 


*D0 


MON 

monitor 

RSM 

resume 



DSP 

display 

MOV 

move 

RTN 

return 



DUP 

duplicate 



RTV 

retrieve 






RVK 

revoke 




*CL programs only 


PT-41 
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S 


CREATE LIBRARY COMMAND 


CRTLIB 


LIB (1ibrary. name) 
[TYPE(*PR0D|*TEST)] 
[PUBAUT(*NORMALI*ALL 


NONE)] 


[TEXT(*BLANK text)] 



: :7CRTLIB 


PT-42 
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CREATE LIBRARY PROMPT 



CREATE LIBRARY (CRTLIB) PROMPT 


Enter the following: 

Library name: LIB R_ 

Library type (*PR0D or *TEST): TYPE *PR0D 

Public authority (*N0RMAL, *ALL or *N0NE): PUBAUT *N0RMAL 
Text description: TEXT *BLANK 


Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60-1608 


KEYWORD AND POSITIONAL 

CRTLIB LIB(BERT) TYPE(*TEST) 

PUBAUT(*NONE) 

CRTLIB BERT PUBAUT(*NONE) 

CRTLIB BERT *TEST *NONE 

CRTLIB BERT /* BERT'S OWN */ 

PUBAUT(*NONE) 


PT-44 
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COMMAND GROUPING MENU 


Select,one of the following: 

1. All Commands 

2. Object and Library 

3. Data Base 

4. Device Management 

5. Programming 

6. Program Debug 

7. Message Handling 

8. Utilities (If Installed) 

9. Input/Output Spooling 

10. System and Job Control 

11. Subsystem and Class 

12. Configuration 

13. Security 

14. Save/Restore 

15. Command Definition 

16. Service 

Option_Partial command name:. 



CF1-Return 
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OBJECT AND LIBRARY COMMANDS MENU 


Select one of 
Object 
RNMOBJ - 
MOVOBJ - 
ALCOBJ - 
DLCOBJ - 
CHKOBJ - 
DSPOBJD - 

Library 
CRTLIB - 
DLTLIB - 
CLRLIB - 
DSPLIB - 
RPLLIBL - 
DSPLIBL - 

Command name:. 


the following: 

Rename Object 
Move Object 
Allocate Object 
Deallocate Object 
Check Object 

Display Object Description 

Create Library 
Delete Library 
Clear Library 
Display Library 
Replace Library List 
Display Library List 


CF1-Return 
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- • r 

Command Key 3 


To Duplicate a Pre 


o 

m 


r. 


COMMAND ENTRY DISPLAY 

DSPLIB MYLIB OUTPUTC LIST) 
:: CALL PYLIST 


:: CALL AR I QO 


DSPLIB MYLIB OUTPUTC LIST") 
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MENU DDS 


Length CO 
< 


« Line Pos 
O 


|l 7 |1B |I9 20 71 22 23 24 25 26 27 ?8|?9|30 


Q Q S. 5 

31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 

I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 1 I I I I I I I I I 


Of /? MEMu FORMAT 


u www\ 


TEXT ( ' £ X R M P L £ OF ft MENU FORMRT') 


\c\h\o\i \c\E\ 


iw\Q\mum 


12 1' / nqui Ri_ __ 

l 6 ' SELECT ONE OF THE FOLLOWING-’. 

5 Zl'i Customer inquiry'_ _ 

7 21 'Z ITEM FILE 1 _ 

7 11' 3 SUPPLIER FILE INQUIRY' 

11 21 ' H RETURN .TO MR IN MENU* 

_ i_s _ 1 ___ 

0i ; 5 _n_ 

IS 2 I \ft N 0 NU\M\e> E R ‘ * 


SIIIIIH 
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CL PROGRAMS 



PT-49 
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loip 
liiv 

smm. 

kma 

l; ?'L "'%(■' .'■ : . 


PAYROLL MENU 


1. ENTER HOURS (ENTER WEEK ENDING DATE) 

2. PRINT PAYROLL REGISTER 

3. PRINT 94VS 

4. PRINT CHECKS (ENTER STARTING CHECK #) 


OPTION: 


WEEK ENDING DATE: 


CHECK NO.: 






V ?i?p ; 
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PRFILE DDS 


1 

09 

Name 

□ 

: 

19 20 21 22 23 24 25 26 27 28 

IS 

Length 

30 31 33 33 3 
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CL PROGRAM FUNCTIONS 


EX1: PGM PARM(&Q0H &QTY0RD) /* EXPGM*/ 

DCL &Q0H *DEC LEN(5) 

DCL &QTY0RD *DEC LEN(5) 

IF ((&Q0H-&QTY0RD) *LT 0) + 

DO 

SNDPGMMSG MSGID(0EMSG2)+ 

/ MSGFILE(OEMSGS) + 
MSGDATA('DUMMY')+ 
TOMSGQ(SUPVR) 

[ 'YOUR DATA ENTRY CLERK IS A &1* 1 

CHGVAR &QTYORD VALUE(OOOOO) 
ENDDO 

ELSE CALL RPGPGM PARM(&QTYORD) 

RETURN 

ENDPGM 
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CL PROGRAM DESK EXERCISE 


1. CODE CL PROGRAM TO DISPLAY PAYROLL 
MENU (PRMNU IN PRFILE) 

2. PROCESS OPTIONS (OPTS) AS FOLLOWS: 

a. CALL PR01 

(WITH PRAMETER (WEDATE)) 

b. CALL PR02 

c. CALL PR03 

d. CALL PR04 WITH (STCKNO) 

(WITH PARAMETER (STCKNO)) 


PT 51 
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SOLUTION 

PGM 

DCLF (PRFILE) 

SNDRCVF PRFILE RCDFMT (PRMNU) 

IF (&0PTS *EQ 1) CALL PR01 (&WEDATE) 
IF (&OPTS *EQ 2) CALL PR02 
IF (&OPTS *EQ 3) CALL PR03 
IF (&OPTS *EQ 4) CALL PR04 (&STCKNO) 
GOTO START 
ENDPGM 
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CONTROL LANGUAGE IS 


• A SINGLE CONSISTENT INTERFACE TO 
ALL SYSTEM FUNCTIONS 

• INTERACTIVE 

- PROMPTS 

-COMMAND GROUPING MENUS 

• COMPILED 

- FAST 

- POWERFUL LOGIC 

- DATA MANIPULATION 

- DIRECT WORKSTATION INTERFACE 

- AUTO-PROMPT 

• DESIGNED FOR CONTROLLING 
APPLICATION FLOW 
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DEBUG 


INTERACTIVE OR BATCH PROGRAMS 

i 

HLL AND CL PROGRAMS 

SECURE PRODUCTION LIBRARIES FROM UPDATE 

DEFINE BREAKPOINTS 

DEFINE TRACE 
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DEBUG MODE 
SET A BREAKPOINT 


08060C 

72 ITEM 

CHAININVENT 


08070C 

96 

GOTO REENT 


■*- 08O8OC 

QTYORD 

MULT PRICE 

VALUE -*■ 

08090C 

VALUE 

ADD TOT 

TOT 


ADDBKP STMT(08080) PGMVAR (VALUE) 


PT-58 



Visual Masters 6-197 




Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZN60*1608 



AT A BREAKPOINT 

PROGRAMMER CAN: 

• DISPLAY OTHER FIELDS 

• CHANGE FIELD VALUES 

• SET ADDITIONAL BREAKPOINTS 

• USE SYSTEM REQUEST KEY TO: 

- EXAMINE DATA FILE 

- ALTER DATA’ FILE 
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DG-5 



01/03/80 12:00:15 BREAKPOINT DISPLAY 

STMT: 1200 PROGRAM: SAR250 INV LVL: 1 

OUTPUT START: 1 LENGTH: *DCL FORMAT: *CHAR 

VARIABLE: TOTAMT 

TYPE: NUMERIC LENGTH: 6 2 

'1010.25+' 


CF1-CANCEL REQUEST CF3-C0MMAND ENTRY ENTER-RESUME EXECUTION 


TRACE 


• TRACE LISTS THE SEQUENCE OF EXECUTION OF 

INSTRUCTIONS. IT CAN ALSO DISPLAY THE CONTENTS 
OF VARIABLES IN THESE INSTRUCTIONS. 


• IT DIFFERS FROM BREAKPOINT IN THAT YOU ARE NOT 
GIVEN CONTROL DURING THE TRACE. YOU CAN ASK 
FOR A DISPLAY OF THE TRACE INFORMATION, BUT YOU 
CANNOT CHANGE VARIABLES. 


• YOU CAN SPECIFY THAT THE VALUES OF THE VARIABLES 
ARE TO BE RECORDED ONLY WHEN THEY CHANGE. 
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"DSPTRCDTA" COMMAND YIELDS: 


TRACE DATA DISPLAY 


STMT: 00000700 

PGM: 

SAR250 

LVL: 1 

12 

STMT: 00000900 

PGM: 

SAR250 

LVL: 1 

13 

STMT: 00008300 

PGM: 

SAR250 

LVL: 1 

14 

STMT: 00008400 

PGM: 

SAR250 

LVL: 1 

15 

STMT: 00008500 

PGM: 

SAR250 

LVL: 1 

16 

STMT: 00001000 

PGM: 

SAR250 

LVL: 1 

17 

STMT: 00001100 

PGM: 

SAR250 

LVL: 1 

18 


START: 1 DISPLAY LEN: *DCL OUTPUT FORMAT: *CHAR 
♦VARIABLE: TOTAMT 



TYPE: NUMERIC 

DECLARE 

LEN: 62 



'1010.25' 




STMT: 

00001200 

PGM: SAR250 

LVL: 1 

19 

STMT: 

00001400 

PGM: SAR250 

LVL: 1 

20 

STMT: 

00001600 

PGM: SAR250 

LVL: 1 

21 
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' TEST LIBRARY 


• TO AVOID DESTRUCTION OF PRODUCTION DATA WHILE 
TESTING PROGRAMS, BOTH PROGRAMS AND FILES 
SHOULD BE PUT INTO TEST LIBRARIES. 

• FIRST OPERATION IS TO CREATE A TEST LIBRARY 

• THE LIBRARY LIST SHOULD NEXT BE CHANGED TO 
PUT THE TEST LIBRARY FIRST 

• GET THE NEEDED OBJECTS FROM PRODUCTION 
LIBRARY TO TEST LIBRARY 

- COPY PHYSICAL FILES 

- RECREATE LOGICAL FILES 

OR 

- SAVE NEEDED OBJECTS (OR WHOLE LIBRARY) AND 
RESTORE TO TEST LIBRARY 

• ENTDBG PGM(pgm-name) UPDPROD(*NO) 

• IN THIS ENVIRONMENT, THE USER WILL BE PREVENTED 
FROM UPDATING PRODUCTION FILES 
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PREPARING TO WRITE A PROGRAM 
^DETERMINE FILES & FIELDS 



*NAMES AND DEFINITIONS; 
LOCATIONS NOT NECESSARY 
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COMPLETE DATA DESCRIPTIONS 



SAME FORM IS USED 
CODE ONCE - USE FOR 
MANY PROGRAMS 
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PT-66 


ENTER 



• FORMATTING 

• SYNTAX CHECKING 



SCRIPTION SPECIFICATIONS 
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USE CONTROL LANGUAGE COMMANDS TO CREATE 
DATA FILES & SCREEN FORMATS 

— CRTLF FI LEfORDENTL.BI LLING) + 

SRCFI LE(ORDERSRC.SRCELIB) 

— CRTDSPF FILE(DISPORD) SRCFILE(ORDIS.SRCELIB) 
COMMANDS MAY BE ENTERED USING PROMPTS 
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WRITE THE PROGRAM 


c 


- Control Level (L0 L9. 

00 LR. SR. AN/OR) 

Indicators 

Factor 1 

18 19 70 71 77 73 74 75 76 77 

Operation 

78 79 30 31 37 
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A 
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DDS LETS THE PROGRAMMER CONCENTRATE 
ON PROGRAMMING 
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ENTER THE PROGRAM USING IDU SOURCE ENTRY 




SEU US W:1 MBR: RPGSAMP 
FMT C 

0014.00 C 01 COUNT COMP 505 
0015.00 C 01N02 EXCPT 

0016.00 C 01N02 GOTO REPEAT 

0017.00 C SETON 

**** END OF DATA **** 



SCAN: 


FMT SEQNBR LEVEL N01N02N03 FACT0R1 OPCODE FACT0R2 

C _ _ _01_ COUNT COMP 505 

RESULT LEN DEC H/A HILOEQ COMMENT 

02 


LR 
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COMPILE THE PROGRAM 
CRTRPGPGM PGM(ORDERI) 


PT-70 


Visual Masters 6-209 



Page of ZR30-0386-1 
As updated February 20, 1981 
By TNL ZNI60-1608 


COMPILE THE PROGRAM 
CRTRPGPGM PGM(ORDERI) 
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USE 


6-210 ZR30-0386 


DEBUG MODE 
ENTDBG 


PT-71 
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FILE REVIEW PROMPT FOR FILE CUSTMASTL 
For each record format to be used, enter R to review the fields, 
A to select all fields, or E to enter fields later: 

X RECORD FMT DESCRIPTION 

A CUSTMAST CUSTOMER MASTER RECORD / LOGICAL FILE 


Press ENTER to continue prompting. 

Press EXIT APPLICATION command key to generate a default 
application using all record formats selected with an A. 


HSUS 
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EXECUTE THE PROGRAM 
CALL PGM(ORDERI) 
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PROGRAMMER ADVANTAGES 

o DATA BASE AND DDS 

- ELIMINATE CLERICAL TASKS 
-SIMPLIFY FILE CHANGES 

a DEBUG MODE TO TEST OR TRAIN 

- REALISTIC WITHOUT DANGER 

• DEBUG MODE TO DEBUG 
-TRUE "ON-LINE" TESTING AND 

CORRECTIONS 

• RPG AND CL 

- PROCEDURAL INTERACTIVE 
PROGRAMMING 

» SYSTEM REQUEST KEY 

- INCREASES FLEXIBILITY 
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RPG III ENHANCEMENTS 


EXTERNALLY DESCRIBED 
FILES 



TWO WAYS OF FILE HANDLING WITHIN A PROGRAM 


1. USING THE RPG CYCLE 

2. FULL PROCEDURAL PROGRAMMING 

NOTE: BOTH PROGRAM DESCRIBED AND EXTERNALLY 

DESCRIBED FILES CAN BE PROCESSED IN THESE 
TWO WAYS. 
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DATA CAN BE ACCESSED 


1 - VIA FILE NAME 

2 - VIA RECORD FORMAT NAME 

1. CAN BE USED WITH 

- EXTERNALLY DESCRIBED DATA 

- PROGRAM DESCRIBED DATA 

2. CAN ONLY BE USED WITH 

- EXTERNALLY DESCRIBED DATA 
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ENHANCED FILE PROCESSING 

CHAIN READ SETLL 


NEW FILE PROCESSING 

DELET READE READP 
SETGT UPDAT WRITE 

NEW FILE CONTROL 

OPEN CLOSE FEOD 






O O O 


PROCEDURAL 


024 SETGT ITMFMT 
READ ITMFMT 


09 SETLL ITMFMT 
READ ITMFMT 


096 SETGT ITMFMT 
READP ITMFMT 


■ • ■ 
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RPG ENHANCEMENTS ... 3 


• WORKSTATION SUPPORT: 

- EXFMT 

- READ 
-WRITE 

® FOR SUBFILES: 

- CHAIN 

- READC 

- UPDAT 

- WRITE 
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RPG ENHANCEMENTS .. .5 


10 

KEY KLIST 

KFLD ORDNO 
KFLD CUSTNO 
KFLD ITEM 


COMPOSITE KEY 

11 

12 

PRTCTL DATA STRUCTURE 

USER-DEFINED EDIT CODES 

(5-9) 


13 

0 

QPRINT 01 


RELATIVE 

0 

CUSTNO 

20 

END 

0 

CUSNAM 

+25 

POSITION 

0 

ADR1 

+30 


0 

ADR2 

+30 


14 

F1G U RAT! V E CON ST ANTS: * 

BLANK 

*ZERO 


■ ’ * / * 

HIVAL 

*LOVAL 


* 

ALL'C' 

' 
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DATA STRUCTURES 


DATA STRUCTURE 


FIELD1 

FIELD2 


FIELD3 


FIELD4 
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RPG III ENHANCEMENTS ... 4 


1 

CUSTYP 

CABEQ 

03 

ROUTN3 

COMPARE AND BRANCH 

2 


SUB 

AMT 

AMT 

(SHORT FORM) 

3 


EXCPT 

TOTALS 


(EXCPT TO A NAME) 

4 


MOVE 

T 

*IN,X 

(INDICATOR ARRAY) 

5 

*LIKE 

DEFN 

FIELDA 

FIELDB 

(DEFINE FIELD SAME AS) 

6 


SETON 


. . . U6 

(CONTROL U. INDICATORS) 

7 


TIME 


TIM DAT 12 

(GET DATE/TIME) 

8 


SHTDN 


. . . 99 . . 

(TEST FOR SHUTDOWN) 

9 


SORTA 

MSG 


(SORT AN ARRAY) 
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RPG III ENHANCEMENTS ... 3 



• PASSING DATA 
PLIST 

PARM CUSNO 

PARM ORDNO 

PARM *IN01 IND 

• RETURNING 
RETRN 

SETON RT 
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MODULAR APPLICATION DESIGN 



® EASY DESIGN, CODE,/ TEST, AND r MAINTENANCE 
• ALLOWS SYSTEM FUNCTIONS THROUGH CALLS TO CL 


HL-7 


6-216 ZR30-0386 






DO 


• DO 


• DOW 


• DOU 


• IF/ELSE 


GROUPS/IF ELSE 

' DO 

END 


' QTYORD 

< 

DOWLT 

? 

QOH 


END 


r QTY 

•« 

DOUEQ 

QDH 


END 


s. 



" QTY 

IFEQ 

QTR 


CALL 

'XYZ' 

4 

ELSE 



CALL 

'ABC' 


END 
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|°* Form Type 
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i ii 
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id 

Factor 1 

Operation 
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Factor 2 
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Name 

43 44 45 46 47 48 

Length 

49 50 51 
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S/38 COBOL 
IBM EXTENSIONS 


PHYSICAL AND LOGICAL FILES 
WORKSTATION SUPPORT 
WORKSTATION SUBFILES 
INDICATORS 

LINKAGE FROM AND TO RPG AND CONTROL 
LANGUAGE PROGRAMS 

COPYING OF FIELD DEFINITIONS OF EXTERNALLY 

DESCRIBED FILES INTO THE COBOL PROGRAM 

SYNTAX CHECKING OF COBOL SOURCE WITH SEU 



FILE PROCESSING 


SYSTEM/38 COBOL USES CPF DATA MANAGEMENT 
FOR FILE PROCESSING 


BOTH PHYSICAL AND LOGICAL FILES ARE 
SUPPORTED 








IBM EXTENSION 

AT COMPILE TIME, DDS USED TO CREATE A FILE 
CAN BE USED TO CREATE AN EQUIVALENT RECORD 
DEFINITION ' 



NOTE: THE ABOVE IS THE FORMAT 2 COPY, THE 
FORMAT 1 COPY IS USED TO COPY SOURCE 
STATEMENTS INTO A PROGRAM. 




EXAMPLE OF USING THE COPY STATEMENT (FORMAT 2) 
ENVIRONMENT DIVISION. 


SELECT PINVMAST ASSIGN TO DATABASE-PINVMAST. 


DATA DIVISION. 

FILE SECTION. 

FD PINVMAST 

LABEL RECORDS ARE STANDARD. 

01 INVMAST. 

COPY DDS-INVMASTR OF PINVMAST. 

1-0 FORMAT: INVMASTR FROM FILE PINVMAST 
OF LIBRARY QSPT 


05 


INVMASTR 



06 

CSTTM 

PIC S9(7)V9(2) 

COMP-3. 

06 

CSTTY 

PIC S9(9)V9(2) 

C0MP03, 

06 

DESC 

PIC X(30). 


06 

DLTOA 

PIC S9(6). 







IBM EXTENSIONS 
BOOLEAN DATA 


TO SUPPORT INDICATORS USED IN DDS FOR 
WORKSTATION CODING 

SPECIFIED: B"l" 

B"0" 

ZERO 

EXAMPLE: 88 END-PROCESS VALUE IS B"l" 

88 HI-LITE VALUE IS B"0" 



IBM EXTENSION 
READ AND WRITE DISPLAYS 


WRITE RECORD-NAME FROM IDENTIFIER 
FORMAT IS identifier/literal 
INDICATORS ARE identifier 


READ file-name RECORD INTO identifier 
FORMAT IS identifier/literal 
INDICATORS ARE identifier 










ENVIRONMENT DIVISION 
INPUT-OUTPUT SECTION 
FILE-CONTROL . 

SELECT DSPFILE ASSIGN WORK STATION-DSPFLOl 
ORGANIZATION IS TRANSACTION 

i 


DATA DIVISION 
FILE SECTION 

FD DSPFILE LABEL RECORD OMITTED 

01 DSP01 

03 DSP01-0-INDICATORS 

05 FILLER PIC 1 INDICATOR 22 
88 HI-INTENSITY VALUE IS B'l' 
05 FILLER PIC 1 INDICATOR 25 
88 MSG01 VALUE IS B'l' 

03 DSPOL-I-INDICATORS 

05 FILLER PIC 1 INDICATOR 98 
88 END-PROCESS VALUE IS B'l' 
03 CUSTNO PIC X(8) 

03 CUSTNM PIC X(20) 

, :■ 03 . CUSTADR1 PIC X(20) 


I 

WORKING-STORAGE SECTION 


• . ^ 



SAMPLE OF WORK STATION CODING (CONI) 


PROCEDURE DIVISION 
PARAOl 

OPEN 1-0 DSPFILE 

MOVE ZEROS TO DSPOl-O-INDICATORS 

i 

i 

i 

PARA03 

WRITE DSPOl 

FORMAT IS 'DSPFMT03' 

INDICATORS ARE DSPOl-O-INDICATORS 


READ DSPFILE 

FORMAT IS 'DSPFMT03' 

INDICATORS ARE DSPOl-I-INDICATORS 

IF END-PROCESS 

GO TO EXIT-PROG 



SUBFILE SUPPORT 
(IBM EXTENSION) 

READ SUBFILE FILE-NAME NEXT MODIFIED RECORD INTO IDENTIFIER 

WRITE SUBFILE RECORD-NAME FROM IDENTIFIER 

REWRITE SUBFILE RECORD-NAME FROM IDENTIFIER 


USED TO REPLACE RECORDS THAT EXIST IN THE SUBFILE 



EXAMPLE OF USE OF NEXT MODIFIED RECORD OPTION 


READ SUBFILE DSPFL06 NEXT MODIFIED RECORD 
THE LAST RECORD READ WAS 2 


DSPFL06 


l— 1 

2 

3 

A 

5* 

6 

7 

CO 

I r • 




* RECORD 5 IS THE NEXT MODIFIED RECORD 
EXECUTION OF THE READ, READS RECORD 5 


DSPFL06 


1 

2 

3 

A 

5* 

6 

7 

CO 

• II 






WORK 


MANAGEMENT 



ASSIGN. TASKS 


RESOURCES 


PRIORITIES 


CHECK 

PROGRESS 



WM-2 


COMMUNICATE 
TO SYSTEM 
OPERATOR 



Visual Masters 6-i 















PARTITIONS TO SUPPORT MULTIPROGRAMMING 



WM-5 
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MORE STORAGE FOR MORE PARTITIONS 
MEANT MORE PROGRAMS 



WM-6 


Visual Masters 6-233 




ADVANCED CONTROL PROGRAM PERMITS 
MULTIPROGRAMMING WITHOUT PARTITIONS 


PROGRAM 1 
PROGRAM 2 
PROGRAM 3 


_ UNUSED 

CONTROL PROGRAM 


Visual Masters 6-235 




ATTEMPT TO EXECUTE PROGRAM 4 
OVERCOMMITS AVAILABLE STORAGE 


PROG. 

4 


NOT 

ENOUGH 

SPACE 



PROG. 1 
PROG. 2 
PROG. 3 


WM-9 
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( 

V 




LEAST ACTIVE PROGRAM "SWAPPED OUT" TO MAKE ROOM 

FOR PROGRAM 4 


"I'LL BE 
BACK." 

n 


PROGRAM 2 

TEMPORARY 
HOLD AREA 


CONTROL PROGRAM 


PROG. 1 
PROG. 4 
PROG. 3 
PROG. 4 



WM-10 
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LEAST ACTIVE PORTIONS OF PROGRAMS 
"PAGED" OUT 


"WE'LL 
BE BACK!" 



l-1 I-1 


CONTROL PROGRAM 


PROG. 1 
PROG. 2 
PROG. 3 


WM-11 
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WORK MANAGEMENT 


SWAPS INTERACTIVE JOBS 
v y* AND 

5^-* PAGES BATCH JOBS 
ONLY WHEN NECESSARY 


WM-12 


Visual Masters 6-239 



VIRTUAI_ 


CREATES AN ILLUSION 




VIRTUAL STORAGE 

MULTIPLE CONCURRENT USAGES OF 
THE SAME PHYSICAL SPACE. 


■hi 




o o 


o 


pan 

SMS 


MAIN STORAGE 


+ ! + 1+ M 


+ 


4 - 

4 - 

+ 

+ 

_0 

_0 




AUXILIARY STORAGE 



ACCOMPLISHED THROUGH SWAPPING AND PAGING. 















































SUBSYSTEMS 


UNIQUE ENVIRONMENT 
- LIKE 

INTERACTIVE JOBS ^ 
BATCH JOBS 
SPOOL FUNCTIONS 


uV 

Vt 

V' !X 


a 


c 




a 


\ 


WM-16 


Visual Masters 










JOB QUEUE 


JOBG (3) 
JOBF (6) 
JOBE (2) 
JOBD (1) 
JOBC (6) 
JOBB (4) 
JOBA (1) 


WM-18 




WzO“H>H w 7 s m 


LOGICAL SCHEMATIC OF SUBSYSTEMS 


cn 

ro 

■c* 

05 


N 

3 

CO 

9 

o 

co 

oo 

O) 



AUXILIARY STORAGE (DATA FILES) 


CCUJUOUQ Q LLI > __ (J LU GO 










MULTIPLE USER PROGRAMS 


ON PRIOR SYSTEMS: 

• MULTIPLE COPIES 

-OR - 

• COMPLEX CODING 
IMPORTANT DESIGNER AND 
PROGRAMMER CONSIDERATION 


WM-20 
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SPOOL - EXAMPLE 1, READING 



THE JOB QUEUE AND THE OUTPUT QUEUE WILL AUTO 
MATICALLY BE PLACED ON AUXILIARY STORAGE. 


















AUXILIARY STORAGE (DATA FILES) 


EXECUTION. (PROGRAM THINKS IT IS 
CARDS FROM MFCU.) 


SPOOL SUBSYSTEM 
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SPOOL - EXAMPLE 3, AS PROGRAM PRODUCES OUTPUT, 
IT IS PLACED IN OUTPUT QUEUE. 


£ 

NJ 

01 



AUXILIARY STORAGE (DATA FILES) 
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SPOOL - EXAMPLE 4, EXECUTION OF MULTIPLE JOBS. 



AUXILIARY STORAGE (DATA FILES) 


*JOBB SUBMITTED FROM WORK STATION THROUGH 
INTERACTIVE SUBSYSTEM. 
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WITHOUT SPOOLING 
(PROCESSING UNIT 
AND PRINTER TIME) 














SPOOLED OUTPUT MAY BE 



DISPLAYED 



HELD 



CANCELLED 


- OR PRINTED;'PUNCHED, OR WRITTEN 
TO AUXILIARY STORAGE. 


WM-29 
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SYSTEM OPERATOR CAN DISPLAY 

/ \ 

{ SYSTEM STATUS 

/ \ 

( SUBSYSTEM STATUS 

/ V 

( SPOOL STATUS 

/ \ 

( I JOB STATUS 

< I PROGRAM STATUS 

WM-30 

Visual Masters 6-257 
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INFORMATIONAL MESSAGES 








FILE DOES MOT EXIST 
COPYFILE COMPLETE 
BATCH SUBSYSTEM STARTED 
LOGICAL FILE ORQENTL CREATED 
SHUTDOWN IN 30 SECONDS 
PICNIC COMMITTEE MEETS TONIGHT 


111 




•> ‘'- 5 -- <• 11 


HELP TEXT 
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INQUIRY MESSAGES 
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REPLY 
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DIAGNOSTIC MESSAGES 
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MESSAGE DELIVERY 


BREAK MODE 

- INTERRUPTION 

- ATTENTION LIGHT 

- AUDIBLE ALARM 

NOTIFY MODE 

- ATTENTION LIGHT 

- AUDIBLE ALARM 

HOLD MODE 

- operat6r must displXy 

MESSAGES 
DEFAULT MODE 

- AUTOMATIC DEFAULTS TAKEN 



Visual Masters 6*: 


SECOND LEVEL TEXT - HELP KEY 


VARIABLE DATA FIELD HELP 

A VARIABLE FIELD- FORMAT DEFINITION CAN BE USED WHEN 
THE DATA TO BE ENTERED EITHER HAS NO COLUMN POSITION 
REQUIREMENTS OR HAS A DEFINED DELIMITER CHARACTER, 
SUCH AS BLANK, WHICH CAN BE USED BY THE SYSTEM TO 
DETERMINE FIELD BOUNDARIES. 

START COLUMN - POSITION FOR THE START OF DATA FIELD. 


K3 

O 
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MESSAGE SENDING CHOICES 


SEND MESSAGE 



SEND BREAK 
MESSAGE 




SEND PROGRAM 
MESSAGE 



SEND REPLY 



WM-37 
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Visual Masters 


MAY BE RECEIVED IN - 
s BREAK MODE 
1 NOTIFY MODE 
HOLD MODE 


MESSAGE HANDLING 


QUEUE 


INFORMATIONAL 

INQUIRY 

REPLY 

REQUEST - CL 

DIAGNOSTIC 













MAY HAVE ANY NUMBER OF QUEUES 


ro 

cn 


MAY BE SENT - 
BY - 

W.S. OPERATOR 
PROGRAM 

SYSTEM OPERATOR 
ANYONE ELSE 

AS - 

JUST A MESSAGE 
A BREAK MESSAGE 
A REPLY MESSAGE 




WORK MANAGEMENT SUMMARY 


« SUBSYSTEMS 

- SWAPPING 

- PAGING 

® READ ONLY CODE 

- MULTIPLE USERS 

- MINIMUM EFFORT 
• SPOOL 

- MULTIPLE DEVICES 

- MULTIPLE QUEUES 

- MULTIPLE FILES 

- HOLD, CHANGE, CANCEL 

® SYSTEM DISPLAYS 

« MESSAGES 

- BREAK MODE 

- HELP TEXT 


WM-39 
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CONVERSION 



??? 

■ ■ ■ 

CONVERT EXISTING APPLICATIONS 
Advantages: 

LESS TIME AND RESOURCE REQUIRED 

Disadvantages: 

NOT UTILIZING CAPABILITIES OF S/38 

REWRITE EXISTING APPLICATIONS 
Advantages: 

TAKE ADVANTAGE OF S/38: FUNCTION 

Disadvantages: 

MORE TIME AND RESOURCE REQUIRED 
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CONVERSION AIDS AND UTILITIES 

• S/3—S/38 BATCH CONVERSION UTILITIES 

• S/3—S/38 BATCH CONVERSION FDP 

• S/3—S/38 CCP CONVERSION AID 

• S/3—S/38 BATCH COBOL CONVERSION AID 

• S/34—S/38 CONVERSION AID 


C-10 
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S/3 BATCH COBOL CONVERSION AID 

• S/3 (ANS 68) - S/38 (ANS 74) 

• FACILITIES TO CHANGE I/O CONFIGURATION 

• ELIMINATES RESERVED WORDS CONFLICTS 

• REPORTS TO MANAGE OCL & DATA CONVERSION 

• RUNS ON S/3 MOD 12, 15 

• CODED IN COBOL AND ASSEMBLER 


C-12 
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S/34 - S/38 CONVERSION AID 

• RPG II - RPG III 

• SFGR - DDS 

• OCL - CL 

• SORT - REFORMAT UTILITY 

• MENUS - DDS AND CL 

• MSG MEMBER - MSG FILE 

J J- . I r 

• MUST RUN ON S/34 AND S/38 


C-14 


6-278.2 ZR30-0386 
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S/3 BATCH COBOL CONVERSION AID 

® S/3 (ANS 68) - S/38 (ANS 74) 

• FACILITIES TO CHANGE I/O CONFIGURATION 

• ELIMINATES RESERVED WORDS CONFLICTS 

• REPORTS TO MANAGE OCL & DATA CONVERSION 

• RUNS ON S/3 MOD 12, 15 

• CODED IN COBOL AND ASSEMBLER 
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CCP CONVERSION AID 

LICENSED PROGRAM 
CODED IN RPG II 
RPG II - RPG III 
DFF - DDS 

SOME CCP FUNCTIONS NOT CONVERTED 
DOCUMENTATION FOR NOT CONVERTED FUNCTIONS 


C-13 
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INSTALLATION PLANNING 


DETERMINE CONVERSION APPROACH 

IDENTIFY PROGRAMS TO BE CONVERTED, REWRITTEN, 
REPLACED WITH UTILITIES, OR ELIMINATED 

DESIGN DATA BASE 

ESTABLISH RESPONSIBILITIES 

EDUCATION 

PROGRAMMERS 
SYSTEM OPERATORS 
WORKSTATION OPERATORS 

PHYSICAL PLANNING 

ESTABLISH SECURITY GUIDELINES 

MONITER PLAN 



